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DESCRIPnON  OF  SYMBOLS  AND  NOTATION 


Vectors:  Bold  fitce  type  indicates  a  vector  quantity.  Hie  subscript  represents  a  tefacnot 
point.  The  superscript  represents  a  reference  coo^inate  frame.  For  example, 

•.Sf  » 

should  be  interpreted  as  the  acceleration  vector  of  the  point  A  relative  to  point  B  expressed  in 
the  C  coordinate  frame.  The  only  exception  to  this  rule  is  in  the  case  of  unit  vectors  or  x,  y, 
and  z  projections  of  a  vector.  In  these  cases,  the  coordinate  frame  will  appear  as  a  subscript. 


Coordinate  Frames  fused  as  subscripts  or  superscriotsi: 


L  -  Local  Vertical  Local  Horizontal  (LVLH) 

SS  -  Space  Shuttle 

C  -  Centrifuge 

P  >  Crewmember  (center  of  mass) 

H  -  PUot  Head 

O  -  Head  OtoUth 

T  -  Tangential  in  centrifuge  frame 

R  -  Radial  in  centrifuge  frame 

X  •  Denotes  X-axis  projection  of  vector  in  any  frame 

y  -  Denotes  Y-axis  projection  of  vector  in  any  frame 

z  -  Denotes  Z-axis  projection  or  vector  in  any  frame 


Unit  Vectors: 

i  -  X-axis 

j  -  Y-axis 

k  -  Z-axis 
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Symbols: 


a  -  acceleration  vector  [length*sec'^ 

AFR  -  afferent  firing  rates  [impulse*sec'‘] 

C  -  cosine  of  an  angle 

E  -  energy  [force*  length] 

go  -  Earth’s  gravitational  acceleration  [9.81  m*sec'^] 

Go  -  Earth’s  gravitational  acceleration  in  units  of  go 

G  -  acceleration  vector  normalized  expressed  in  multiples  of  go 

H  -  angular  momentum  [mass*  length^* 

I  -  mass  moment  of  inertia  [mass-lragth^] 

K  -  control  compensator  gain 

L  -  3x3  coordinate  system  rotation  matrix 

M  -  moment  [force*  length] 

P  -  Power  [energy*  see  *] 

r  -  centrifuge  radius  [length] 

r  -  position  vector  [length] 

s  -  Laplace  transformation  variable 

S  -  sine  of  an  angle 

V  -  velocity  vector  [length*sec  ‘] 

t  -  time  [sec] 

Tl  ■  canal  long  time  constant  [sec] 

a  -  angular  acceleration  vector  [deg*sec'^] 

7  •  angular  position  vector  [deg] 

d  -  incremental  change  or  perturbation  of  a  quantity 
€  -  error  value  [any  unit] 

r  -  dynamic  system  time  constant  [sec] 

<a  -  angular  velocity  vector  [deg*s  '] 


Time  Derivatives: 

-  First  time  derivative 
Second  time  derivative 


X 


SECTION  1 


1 


1.0  Summary. 

Biodynamic  Research  Corporation  (BRC)  of  San  Antonio,  TX,  completed  an  SBIR  Phase  1 
project  to  study  the  ccmcept  of  a  short  radius  centrifuge  for  use  in  a  microgravity 
environmoit.  The  impetus  for  this  project  was  the  desire  to  further  studies  of  a  conceptual 
short  radius  centrifuge  as  a  mechanism  to  ameUoiate  the  effects  of  microgravity 
decondititming.’  From  an  orbital  dynamics  consideration,  motion  of  the  centrifuge  and 
riders  can  cause  destabilizing  forces  and  moments  to  be  aj^Ued  to  the  orbiting  platform. 
Physiologically,  centrifugation  may  exacobate  the  discomfort  associated  with  motion  in 
microgravity  and  create  an  ihcrea^  potential  for  disorientation.  Furthermore,  although 
research  has  shown  short  radius  centrifugation  to  be  tolerable  on  earth,  there  have  been  no 
studies  of  the  effect  of  centrifugation  on  the  cardiovascular  system  in  microgravity. 

To  quantify  the  dynamic  effects  of  centrifugation  on  an  orbital  platform,  we  considered  as  a 
baseline  configuration  a  200  cm  radius  centrifuge  to  be  operated  in  a  pressurized  enclosure  of 
the  space  shuttle  payload  bay.  The  device  was  considered  to  be  aligned  with  a  spin  axis 
parallel  to  the  shuttle  x-axis,  which  points  from  the  nose  towards  the  engines.  To  minimize 
the  angular  velocity  of  the  centrifuge,  the  riders  are  assumed  to  be  positioned  with  the  top  of 
their  heads  approximately  100  cm  from  the  center  of  the  device. 

Parametric  studies  of  the  centrifuge  with  a  singte  rider  indicate  the  dynamic  imbalance  from 
the  rotating  mass  will  cause  the  shuttle  center  of  mass  to  move  in  a  circular  path  with 
diameter  of  0.1  cm  and  cause  an  angular  displacement  on  the  order  of  0.01°  from  the  shuttle 
x-axis.  Although  the  force  and  moment  caused  by  the  imbalance  are  large  in  magnitude, 
they  result  in  accelerations  to  the  shuttle,  approximately  lO*’  G,  in  a  frequency  range  that  has 
been  tolerated  on  other  spacecraft.  Methods  for  reducing  and  eliminating  the  imbalance  are 
described.  The  simplest  solution  is  to  place  a  second  rider  opposite  the  first  on  the 
centrifuge.  This  reduces  the  dynamic  imbalance  effect  by  50%  or  more,  however  an 
additional  mechanism  is  requir^  to  reduce  the  imbalance  further.  We  propose  an  automated 
meclumism  with  a  moveable  countermass  to  continually  balance  the  centrifoge.  The  addition 
of  this  device  should  diminate  most  of  the  shuttle  oscillation  caused  by  the  imbalance. 

Coitrifiigation  with  a  single  rider  will  also  produce  a  drive  moment,  from  angular 
acceleration  of  the  crewmember  inertia,  and  gyroscopic  moment,  from  the  motion  of  the 
centrifuge  spin  axis  due  to  shuttle  maneuvering  and  orbiting.  Compensation  for  these 
moments  may  be  of  more  concern  than  the  imbalance  moment  because  they  potentially  act 
over  l(mg  durations.  To  eliminate  these  moments,  we  propose  a  counter-rotating  inertia 
similar  to  conventional  spacecraft  reaction  wheels.  To  minimize  the  mass,  the  counter¬ 
rotating  inertia  could  be  rotated  at  a  faster  rate  than  the  centrifuge. 

Ve  also  considered  the  use  of  pedalling  to  drive  the  centrifuge.  Sustainable  power  and 
torque  outputs  from  a  single  ridor  should  be  adequate  to  drive  the  centrifuge,  either  through  a 
dir^  mechanical  ctnmection  or  by  conversion  to  electrical  power. 
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Dynamic  mathematical  models  of  the  vestibular  system  were  used  to  determine  how  the  rider 
would  be  affected  by  centrifugation.  Literature  from  other  excursions  in  space  indicate 
microgravity  causes  normal  small  translations  of  the  head  to  cause  discomfort  through 
stimulation  of  the  otoliths.  The  radial  acceleration  of  the  centrifuge  may  help  alleviate  this 
discomfort.  The  angular  motion  of  the  centrifuge,  on  the  other  hand,  will  create  the 
potential  for  disorientation  or  discomfort  by  stimulation  of  the  semicircular  canals.  Of 
particular  concern  is  the  potential  for  the  cross-coupling  illusion,  which  may  be  more 
prevalent  for  riders  on  the  centrifuge  than  for  high  performance  aircraft  pilots. 

To  be  of  use  in  ameliorating  the  effects  of  microgravity  on  the  cardiovascular  system,  the 
short  radius  centrifuge  must  be  able  to  create  enough  fluid  static  pressure  difference  in  the 
rider  to  stimulate  the  cardiovascular  system.  A  mathematical  model  of  the  human 
cardiovascular  system  indicates  that  centrifugation  at  a  short  radius  in  space  would  indeed 
stimulate  the  heart,  even  though  there  is  a  significant  acceleration  gradient  from  head  to  toe. 
The  predicted  static  pressures  throughout  the  cardiovascular  system  for  centrifugation  in 
microgravity  are  similar  to  the  pressures  of  centrifuge  riders  on  earth. 
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2.0  Introductioii 


Hiis  final  rqxirt  concludes  an  effort  by  Biodynamic  Research  Corporation  (BRC)  of  San 
Antonio,  TX  to  conduct  a  parametric  study  of  the  use  of  a  short  arm  centrifuge  for  space 
j^lications.  The  effort  was  conducted  under  Contract  #F41624-93-C-601 1  through  the 
Armstrong  Laboratory  and  is  entitled  “Modelling  Platform  Dynamics  and  Physiologic 
Resqxmse  to  Short  Arm  Centrifugation.” 

The  shKfy  Mnanates  from  the  desire  to  use  centrifuges  as  a  countermeasure  to  prevent  the 
jriiysiologic  deconditiaiing  of  astronauts  exposed  to  long  term  microgravity  environments. 

An  Air  Force  parametric  design  study  fi>r  a  small  radius  centrifuge  revealed  such  a  centrifuge 
could  fit  on  the  NASA  Space  Shuttle  and  provide  artificial  gravity  and  exercise  for 
crewmembers.'  An  SBIR  Phase  I  project  was  airarded  to  BRC  to  investigate  several 
fdiysicfiogical  effects  of  short  radius  centrifugation,  as  well  as  assess  the  impact  of  the 
centrifuge  motion  on  the  spaot  shuttle  dynamics.  Specifically,  the  objectives  of  the  Phase  I 
prefect  are  listed  below: 

(1)  To  develop  a  kinematic  model  of  the  acedoation  produced  by  a  short  radius 
centrifuge. 

(2)  To  devdop  a  simple  mathematical  model  of  the  steady  state  cardiovascular  re^n^e 
to  short  rMus  centrifugation. 

0)  To  develop  a  mathematical  model  of  the  crewmember  vestibular  stimulus  and 
re^Kmse  produced  by  short  radius  centrifugation. 

(4)  To  assess  Hie  effects  of  centrifugation  on  the  orbiting  platform  and  consider 
m^iods  for  noting  destabilizing  forces  and  moments. 

Kodyhamic  Research  Corporation  performed  all  of  the  analysis  for  this  contract.  This  final 
rqport  documents  and  summarizes  the  work  goierally  accor^g  to  fire  objectives  outlined 
above.  ChayMer  3  of  fiiis  final  rqxnt  provides  back^und  on  physiologic  deconditioning  in 
microgravity  and  the  use  of  cent^ges  for  ^)ace  applicatitm.  Cluqpter  4  describes  the 
fcinemarics  aixl  dynamics  of  a  qnce-based  centrifuge,  typical  destabilizing  forces  and 
moments  transmitted  to  die  orbiting  platform,  and  methods  for  eliminating  destabilizing 
forces  and  nxmients.  Finally,  CtuqitCT  S  describes  some  of  the  physiologic  effects  of 
coitrifugation  in  qiace,  inclu^g  simulations  of  the  theoretical  vestibular  response  and 
cardiovascular  effects  of  centrifugation. 
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3.0  Techakal  BickgniiiBd  and  Uterature 


Much  researdi  has  been  conducted  in  the  areas  of  physiologic  deconditioning  due  to  exposure 
to  microfiavity  and  the  possiUe  amdionting  effects  of  centrifugation.  In  this  chapter,  we 
review  some  of  die  pl^siologic  effects  and  briefly  trace  the  history  and  technical  literature 
discussing  iqpaoe-based  centrifuges. 

3.1  Mki-ngfavity  DecoadMioolng. 

fiutnMw  nd  have  evolved  adqxation  to  earth’s  gravity  to  maintain  physiologic 

hreneostasis.’  Pndonged  exposure  to  microgravity,  such  as  that  experienced  by  astronauts, 
has  several  negative  physiologic  effiscts  collectively  termed  deconditioning.  Some  of  the 
moat  agnillcant  effects  include:’ 

•  fluid  shift  and  decreased  plasma  volume; 

•  ordxMtatic  intolerance; 

•  reduced  tderanoe  to  increased  +G,  acceleration; 

•  n^ative  calcium  balance,  resulting  in  the  loss  of  bone; 

•  possible  immunosuppresrion;  and 

•  musde  atrophy. 

Hie  system  is  suscqitible  to  changes  in  acceleration  loading.  Studies  in 

nucrogiayity  have  shown  a  reducticm  in  skeletal  muscle  mass  in  long  duraticm  exposures, 
which  can  be  partially  offset  by  phyncal  exercise.’  Bone  mass  losses  are  primarily  losses  in 
mineral  content,  which  changes  die  mechanical  prc^imties  of  bones.  The  magnitu^  of 
muscle  atrofdiy  and  bone  demineralizatitm  has  b^  shown  to  Ire  directly  related  to  the  loigth 
of  micrc^ravi^  exposure.* 

Orthostatic  intolmance  is  r^arded  as  a  potentially  smious  cardiovascular  consequence  of 
microgiavity  esqxisure.  The  intolerance  is  attributable  to  the  absence  of  hydrostatic  pressure 
gradunts  in  nucrogravity.*  The  lack  of  a  head-to-fbot  gradient  causes  a  s^nificant  shift  in 
fluid  fiom  die  lower  body  to  die  head  and  chest  aftm*  several  days  in  space.  Other 
{diyskdogic  reqxmaes  reduce  the  total  blood  volume  to  accommodate  the  fluid  shift,  and  a 
new  drculatoiy  htmreostasu  is  achieved.  When  the  cardiovascular  ^tem  is  once  again 
exposed  to  gravity,  it  is  unable  to  compensate  prc^ly  for  the  pressure  gradient. 

Although  diese  effects  may  not  necessarily  jeopardize  a  mission  in  qnce,  orbital  experioices 
and  postfl^t  medical  examinaticms  of  astronauts  have  suggested  deconditioning  may 
interflsre  widi  performance  during  reentry  and  subsequoit  life  on  earth.*'’  It  is  important 
that  humans  be  able  to  survive  a  Imig  duration  exposure  to  microgravity  and  return  safely  to 
eardi’s  gravity. 
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3  J  CoitriAiie  fw  Spue  Appikations. 

Since  tfie  cause  of  physiologic  deconditioning  in  microgravity  is  the  absence  of  gravity,  the 
most  obvious  means  for  rediKung  the  effects  is  to  simulate  the  gravitational  loading  found  on 
eardi.  Other  interventions  have  been  tried;  fm*  example,  in-flight  exercise  regimens  have 
been  shown  to  provide  protection  against  differoit  aspects  of  deconditioning/  Lower  Body 
N^ative  Pressure  (LBNP)  has  also  been  used  tt>  improve  post-flight  orthostatic  intolerance. 

Even  more  useful  for  preventing  deconditioning  might  be  the  radial  acceleration  c^xated  by  a 
coitrifiige.*  Sdentific  evidence  indicates  that  periodic  stimulation  of  the  body  by 
acceleration  causes  a  frfiysiologic  response  that  persists  after  the  stimulation.^  Numerous 
studies  advocate  centrifi^tion  as  a  countermeasure  to  space  decondititHung.*-^’^-'’’  '*’ 
Acceleration  magnitude  and  duration  appear  to  be  interactive;  increasing  the  acceleration 
magnitude  may  reduce  the  time  required  to  ameliorate  deconditioning.^ 

In  a  spacecraft,  where  size  is  a  prime  consideration,  a  centrifuge  has  to  have  a  small  radius. 
Since  the  acceleration  at  a  point  on  the  centrifuge  is  dependent  on  the  distance  from  the 
center  (discussed  more  folly  in  Chapter  4),  an  acceleration  gradient  exists  across  the 
crewmember.  The  cardiovascular  effects  of  this  gradient  are  discussed  in  Chapter  S. 
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SECTION  4.0 
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4.0  Flatf<»iii  and  Centriftife  Dynamics 

The  motion  of  the  short  radius  centrifuge  and  riders  has  the  potential  to  transmit  destabilizing 
fi»oes  and  mmnents  to  tte  orbiting  platform.  For  this  rqxm,  we  have  assumed  the  orbiting 
platfimn  is  the  space  shuttle.  In  Se^ons  4.1  and  4.2  omvenient  coordinate  frames  are 
identified  and  tiie  threeslimensional  dynamics  of  the  centrifuge  and  shuttle  are  described. 
Section  4.3  quantifies  the  reaction  form  and  momaits  that  result  from  centrifugation,  and 
the  results  of  a  shuttle  dynamic  simulation  are  presented.  In  Section  4.4,  the  use  of  rider 
pedalling  finr  aerobic  exercise  and  as  a  means  to  dri>«  the  centrifuge  is  discussed.  Methods 
for  eliminating  mass  imbalance  and  compensating  for  centrifugaticm  and  pedalling  moments 
are  described  in  Section  4.S.  Finally,  S^<m  4.6  summarizes  the  results  of  Chapter  4  and 
presoits  some  concqK  designs  ftn  a  pedal-powered  space  centrifuge. 

4.1  Coordttnate  Frames  and  Kinematks. 

Analysis  of  the  motion  of  the  centrifuge,  qiace  shuttle,  and  crewmember  requires  the 
ktentification  and  definition  of  iqipropriate  coordinate  frames.  Four  coordinate  frames  are 
used  fi>r  die  shuttle,  coitrifuge,  crewmember  kii»matica:  (1)  an  orbital  Local  Vertical 
Local  Horizontal  (LVLH)  frame;  (2)  a  space  shuttle  fixed  frame;  (3)  a  centrifuge  fixed 
frame;  and,  (4)  a  crewmember  fix^  frame.  Each  frame  is  described  in  detail  below  and 
dqncted  in  Figure  4-1. 

(1)  LVLH.  The  Local  Vertical  Local  Horizontal  coordinate  frame  is  defined  by  the  orbital 
plane  of  die  space  shutde  and  moves  with  d»  shutde.  The  LVLH  z-axis  always  points 
towards  the  center  (rf  the  eardi.  The  x-axis  always  points  in  the  directitm  of  tangential 
velocity  of  die  shuttle.  The  y-axis  is  orthogonal  to  the  x  and  z  axes  and  rqiresents  a 
unit  normal  to  the  orbital  plane  of  the  shutde.  This  frame  is  denoted  by  dw  letter  L. 

(2)  Space  Shutde  Fixed.  This  coordinate  system  is  fixed  to  the  space  shutde  center  of  mass 
a^  moves  widi  die  shutde.  The  x-axis  points  from  the  nose  to  the  engines  of  the 
shuttle.  The  z-axis  is  directed  normal  to  the  shutde  wings  with  the  top  of  the  shuttle 
being  the  positive  direction.  The  y-axis  is  directed  from  the  shuttle  out  towards  the 
right  This  frame  is  denoted  by  the  liters  SS. 

(3)  Centrifuge.  This  coordinate  frame  is  fixed  to  the  center  of  the  centrifuge.  The  x-axis 
is  die  spin  axis,  and  the  y  and  z  axes  are  selected  to  be  parallel  to  the  shutde  axes. 

This  frame  is  denoted  by  the  letter  C. 

(4)  Crewmember.  This  coordinate  frame  is  fixed  to  the  center  of  mass  of  a  crewmember 
on  the  centrifuge.  The  z-axis  points  from  head  to  toe,  the  x-axis  points  forward,  and 
die  y-axis  points  out  die  right  side  of  the  subject.  This  frame  is  denoted  by  the  letter  P. 
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4^  Ffa^onn  and  CeatriAife  Kinanatks  and  Dynamics. 


To  simplify  the  analysis  of  the  shuttle  and  centrifuge  motimi,  BRC  made  several 
assumjMums: 


(1)  The  orbital  velocity,  eccentricity,  altitude,  and  other  aspects  of  the  shuttle  orbit  were 
xM  considered  in  the  analysis. 

(2)  Deviations  in  the  shuttle  orientation  were  considered  small  enough  that  tte  original 
unrotated  axes  were  used  to  express  the  motion. 

(3)  Movement  of  the  centrifuge  and  riders  causes  a  n^ligible  change  in  the  cotter  of  mass 
and  inertia  of  the  shuttle.  This  alleviates  the  need  to  recompute  the  shuttle  mass 
properties  for  centrifuge  simulations  and  parametric  studies. 

(4)  Space  shuttle  and  centrifuge  mass  properties  infinmation  were  obtained  from  an  Air 
Iknce  publication.*  Human  data  was  obtained  from  an  anthropometry  source. 

(5)  Unless  otiiowise  noted,  dynamic  and  kinematic  vector  quantities  are  assumed  to  be  with 
le^MCt  to  the  sptat  shuttle  coordinate  frame. 

(6)  The  existing  momentum  management  system  of  the  space  shuttle  was  not  omsidered; 
we  assumed  the  shuttle  has  no  source  for  angular  momentum  storage  or  resistance  other 
than  (he  motion  of  the  centrifuge  and  the  shuttle  inertia. 

The  total  angular  velocity  and  acceleratitm  of  the  riiort  arm  centrifuge  due  to  angular  motion 

of  the  shuttle  and  centrifugation  can  be  found  from: 


and 

me  -  •ss*^ctss***ss^**c  • 

Then,  the  velocity  and  acceleration  of  a  crewmember,  P,  on  the  short  arm  centrifuge  can  be 
computed  with  the  following  expressions: 

and 
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Assuming  that  the  motion  of  the  shuttle  is  negligible  compared  to  that  of  the  cmtrifuge,  the 
magnitude  of  the  radial  and  tangential  acceleration  of  a  subject  whose  center  of  mass  is 
located  at  dm  pmnt  P  can  be  approximated  by: 

2 

«jr  ■  “oasOyc  ’ 
and 

*  “qa/w  • 

Because  the  ^ect  of  gravity  on  an  orbiting  centrifuge  is  negligible,  crewmembers  can  be 
arbitrarily  placed  on  the  centrifuge  while  it  is  motionless  without  static  balance  requirements. 
Once  the  centrifuge  is  accelerated,  however,  dynamic  imbalance  of  the  rider  masses  can 
impart  a  force  and  moment  to  the  shutUe.  The  reaction  force  generated  by  centrifuge 
dynamic  imbalance  is  quandfled.by: 

-  -E  («,  .  [4-7] 


[4-5] 

[4-6] 


Since  this  is  assumed  to  be  the  (mly  disturbing  force  on  the  shuttle,  translational  motion  of 
the  shutde  center  of  mass  can  then  be  computed  from: 


If  the  centrifuge  is  not  located  at  the  space  shuttle  center  of  mass,  the  force  due  to  imbalance 
applied  at  a  distance  will  create  an  imbalance  moment  on  the  shuttle: 

^imk  *  ^dSS^^fmt  • 

Angular  accderation  of  the  centrifuge  and  precession  of  the  centrifuge  while  spinning  due  to 
shutde  modons  will  also  transmit  disturbing  moments  to  the  shutde.  Consider  that  the 
motion  of  the  centrifuge  is  governed  by: 


i  <*  , 


where 


[4-10] 


[4-11] 
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and  die  inertia  of  the  centrifuge  about  the  Xc  axis  can  be  computed  from: 


where  rqnesents  each  of  die  crewmembers. 

Substituting  Equation  4>11  into  4-10  yields  an  expression  for  the  moments  created  by  the 
centrifi^: 


E^c  -  ^c«Q8s  +  »a»x^c«ass 


An  alternate  form  for  Equation  4-13  is: 


[4-13] 


5;j#e  -  . 


where 


and 


“  ^c*ass 


[4-14] 

[4-15] 

[4-16] 


Angular  motion  of  the  space  shutde  due  to  the  mass  imbalance  moment  and  centrifuge  drive 
and  gyroscopic  moments  is  computed  from: 


-  i„  ,  [4-17] 

where 

^ss  *  *  (»•«  •  [^-18] 


Substituting  Equations  4-15,  4-16,  and  4-18  into  4-17  yields  the  final  expression  for  angular 
motion  of  die  spact  shutde: 


««  -  ■  H-W] 

N<Me  in  Equation  4-19  diat  the  drive  and  gyroscopic,  moments  appear  as  n^ative  quantities 
because  it  is  dm  equal  and  opposite  reaction  moments  that  act  on  the  shutde. 
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4.3  Furunetric  Stu<ties  and  Simulations. 


Using  the  analysis  of  Section  4.2,  the  destabilizing  forces  and  torques  from  centrifuge  motion 
are  quantified  in  this  section.  First,  it  is  necessary  to  summarize  the  anthropom^ry  of 
typic^  astronauts  and  the  mass  properties  and  dimensions  of  the  shuttle  and  centri^ge.  With 
these  values,  expressions  from  Section  4.2  are  used  to  describe  motion  of  the  centrifuge  and 
shuttle. 


4.3.1  Crew,  Centrifuge,  and  Shuttle  Dimensions  and  Properties. 

To  assist  in  selecting  the  size  of  the  centrifuge,  the  relevant  anthropometric  data  for 
astronauts  are  summarized  in  Table  4-1." 


The  maximum  diameter  of  the  space  shuttle  crew  compartmen*.  is  ai^roximateiy  130  cm, 
which  would  permit  a  centrifuge  with  arm  length  of  only  65  cm.‘  From  Table  4-1,  it  is 
evident  that  even  the  shortest  astronaut  could  not  lie  in  a  supine  position  on  a  centrifuge  with 
65  cm  arm.  The  shuttle  payload  bay,  however,  is  much  larger  than  the  crew  compartment  - 
the  nominal  diameter  is  457  cm.’  A  centrifiige  with  maximum  arm  length  of  approximately 
225  cm  could  be  used  in  the  payload  bay.  For  the  95  percentile  male,  the  subject’s  head 
could  be  positimied  a  maximum  of  approximately  125  cm  from  the  center  of  the  centrifuge. 
For  most  of  the  parametric  studies  and  simulations  in  this  report,  the  crewmember’s  head  is 
positioned  100  cm  from  the  center  of  the  centrifuge.  As  in  the  Air  Force  study,  we  will 
assume  the  centrifuge  is  located  in  a  pressurized  enclosure  in  the  shuttle  payload  bay.’ 


For  the  dynamic  motion  analysis,  mass  prope  rties  for  the  shuttle  were  obtained  from  the 
Meeker  and  Isdahl  study.’  llie  total  mass  of  the  shuttle  is  estimated  to  be  98,122  kg,  and 


the  inertia  matrix  about  the  center  of 

mass  is: 

1,453,255 

-7,544 

-335,642 

^S5  = 

-7,544 

10,077,164 

-10,259 

-335,642 

-10,259 

10346,577 

[4-20] 


A  typical  single  centrifuge  arm  could  be  fabricated  from  two  pieces  of  200  cm  long 
aluminum  tube,  with  fabric  stretched  between  to  support  the  rider  and  straps  to  hold  him  in 
place.  If  the  mass  of  the  structure  is  approximated  at  12.5  kg  and  center  of  mass  assumed  to 
be  100  cm  from  the  centrifuge  center,  the  momert  of  inertia  of  each  arm  will  be  12.5  kg  m^ 
A  two-arm  centrifuge,  which  is  discussed  frequently  in  subsequent  sections  of  this  repon, 
would  have  a  combined  center  of  mass  at  the  centrifuge  axis,  total  mass  of  25  kg,  and 
moment  of  inertia  of  25  l^*m^  A  schematic  of  a  conceptual  centrifuge  configuration  with 
single  rider  is  displayed  in  Figure  4-2. 
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Table  4-1.  Crew  Anthropometry,  Squatting  Position 


DIMENSION 

MALE 

FEMALE 

Stature 

5*  Percentile 

50^  Percentile 

95*  Percentile 

169.7  cm 

179.9  cm 

190.1  cm 

148.9  cm 
157.0  cm 
165.1  cm 

Head  to  Heart  (z-axis)‘ 

5*  Percentile 

34.7  cm 

29.4  cm 

50^  Percentile 

35.8  cm 

30.2  cm 

95*  Percentile 

37.5  cm 

30.9  cm 

Head  to  COM  (z-axis)^ 

1 

5*  Percwitile 

51.6  cm 

45.2  cm  1 

50^  Percentile 

53.5  cm 

46.7  cm  1 

95*  Percentile 

55.4  cm 

48.0  cm  1 

Head  to  Buttocks  (z-axis)^ 

5*  Percoitile 

88.9  cm 

78.3  cm 

50^  Percentile 

94.2  cm 

84.8  cm 

95*  Percentile 

99.5  cm 

91.2  cm 

Mass 

5*  Percaitile 

65.8  kg 

41.0  kg 

50^  Percentile 

82.2  kg 

51.5  kg 

95*  Percentile 

98.5  kg 

61.7  kg 

Moment  of  Inertia  (x-axis)* 

5*  Percentile 

5(y*  Percentile 

95*  Percentile 

3.8  kg-m^ 

4.9  kg'm^ 

6.0  kg'm^ 

2.4  kg-m^ 

3.1  kg-m^ 

3.8  kg-m^ 

'  Approximato. 

^  Estimated  center  of  mass  position  for  squatting  person  in  microgravity.  Female  values  estimated  from  ratio 
of  male  center  of  mass  position  to  male  sttture. 

^  Sitting  position. 

*  Female  values  scaled  from  male  values  using  mass  ratio. 
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Finally,  we  assume  the  position  of  the  centrifuge  in  the  shuttle  is  directly  behind  the  crew 
compartment,  approKimtUdy  12.9  m  forward  of  the  shuttle  crater  of  mass.'  This  value  will 
be  uWd  to  die  resultant  couple  moment  on  the  diuttle  ftom  reaction  forces  at  the 
centrifuge  axis.  Of  course,  the  centrifuge  could  be  located  at  a  different  position,  with  a 
potentially  different  effect  to  the  diuttle. 

4  Centilftige  and  buttle  Mdlon. 

From  Equation  4-S,  radial  acceleration  of  a  point  on  the  short  arm  centrifuge  is  proportional 
to  the  distance  of  die  point  from  die  crater  and  proportional  to  the  square  of  the  angular 
velocity  of  the  centrifuge.  N^lecting  die  small  acceleration  component  from  shutde  motion. 
Figure  4-3  di^lays  the  centrifuge  angular  velodty  required  to  achieve  different  radial 
acceleiations  as  a  function  of  the  distance  of  the  crewmember’s  head  from  the  crater  of  the 
centrifuge.  Typical  operation  of  the  centrifuge  to  achieve  useful  radial  accelerations  would 
requite  rotatira  rates  between  20  and  80  rpm. 


If  a  single  rider  is  on  the  cratrifi^,  the  centrifuge  would  be  dynamically  unbalanced  and 
would  impose  a  reactira  fcnoe  and  moment  on  the  shuttle.  Figure  4-4  disp^ys  the  magnitude 
of  imbalance  force  as  a  result  of  a  single  95  percentile  male  rider  with  his  h^  at  different 
distances  from  the  crater  and  for  different  radial  accelerations  at  his  head  location.  Note  that 
in  many  of  the  following  figures,  the  radial  accelraation  at  the  top  of  the  head  and  distance 
from  the  head  to  the  ^»n  axis  be  the  abscissa  and  l^end.  If  the  centrifuge  is  rotating  at 
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constant  speed,  the  imbalance  force  can  be  ie{»esented  as  a  sinusoid  with  components  in  the 
centrifuge  y  and  z  axes: 

•  »i,ojr^«c0  .  [4-21] 

and 

-  .  [4-22] 


Since  the  imbalaiK:e  force  is  sinusoidal,  displa<%ment  of  the  shuttle  center  of  mass  will  be  in 
a  circular  path.  Equations  4-21  and  4-22  can  be  divided  by  the  shuttle  mass  and  integrated 
twice  to  yield  the  linear  displacement  of  the  shuttle  center  of  mass.  The  maximum 
displacement  due  to  a  single  95%  rider  is  on  the  order  of  0. 1  cm  and  is  displayed  in  Figure 
4-5.  The  displacement  is  computed  with  the  following  expression: 


Ar, 


1^. 


[4-23] 


24 


Note  from  Equation  4-23  that  the  angular  velocity  of  the  centrifuge  becomes  irrelevant  to  the 
steady  circular  motion  of  the  shuttle. 

For  the  shuttle  with  mass  of  approximately  98,000  kg,  the  centrifiige  imbalance  force  would 
result  in  accdetations  between  10*^  and  10^  G,  witii  a  frequoK^  on  the  order  of  1  Hz.  At  a 
distance  of  12.9  meters  forward  of  the  shuttle  center  of  mass,  the  rider  mass  imbalance  will 
create  a  disturbing  couple  moment.  The  momoit  caused  by  a  single  95  percoitile  male  ridm- 
at  different  centrifuge  radial  accelerations  is  di^layed  in  Figure  4-6.  Obviously,  this 
moment  is  agnificant  -  on  the  order  of  10*  - 10*  N’m.  If  we  assume  for  simplicity  that  the 
shuttle  can  be  represented  as  a  slender  rod  with  uniform  mass  distribution,  display^  in 
Figure  4-7,  the  imbalance  moment  from  a  single  rider  would  rotate  in  direction  as  the  person 
was  cmitrifoged.  Recalling  Equation  4-10  for  angular  motion  of  a  rigid  body,  the  angular 
moticm  of  the  rod  could  be  expressed  by  the  following  component  equations: 
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[4-24] 


and 

•  I^"25] 

intyititig  twwe  yidds  an  expression  fbr  the  q)pr(xxiinate  maximum  angular  displacemmts 
due  to  the  imbahwce  moment: 


[4-26] 


SidMdtuting  a  nominal  value  of  40  tpm  for  the  angular  velocity,  lOi’  kg-m^  for  the  bar  inertia, 
and  S(109*  N*m  for  dm  infoalanoe  moment  yields  a  maximum  angular  di^lacement  of 
qipraodmaldy  O.OIS*.  This  angular  excursion  might  prove  tolerable  for  some  shuttle 
missioos. 

The  iwtfMiitiflft  is  not  die  only  destabilizing  torque  created  by  centrifugation.  Angular 
aoodefadon  of  the  relative  to  die  shutde  to  achieve  a  certain  radial  acceleiaticm 

requiies  a  drive  mmnent  proportional  to  die  inertia  and  angular  accdeiation  of  the  centrifuge. 
This  moment  was  described  in  Equation  4-lS,  and  can  be  alternativdy  expressed  as  a 
function  of  avrilable  power  input*  Consider  diat  rotational  kinetic  energy  of  the  centrifuge 
at  a  specific  angular  velocity  is  d^ned  as: 


[4-27] 


Knowing  that  power  is  die  rate  of  diange  in  energy,  Equaticm  4-27  can  be  written  to  yield: 


DUferentiating  ykMs  an  cxpresskm  for  the  angular  acceleration  of  the  centrifuge  as  a 
function  of  the  available  power  input  and  time  to  accelerate: 


Jss- 

2/cAf 


[4-29] 


Uang  Equation  4-29,  the  time  to  achieve  a  certain  radial  acceleration  is  displayed  for 
different  constant  average  power  inputs  in  Figure  4-8.  The  average  momrat  transmitted  to 
the  shuttle  during  the  centrifuge  ac^eration  is  di^layed  in  Figure  4-9.  Note  that  although 
diis  moment  is  several  orders  of  magnitude  less  than  the  imbalance  moment,  it  is  in  a 
constant  direction  and  is  about  the  axis  of  smallest  shuttle  inertia.  Furthermore,  (xice  the 
shuttle  obtains  a  constant  angular  velocity,  it  will  continue  to  rotate  until  the  centrifuge  is 
slowed.  Figure  4-10  di^lays  the  angular  velocity  of  the  shuttle  after  the  centrifuge 
accelerates  to  a  certain  radial  acceleration.  Notice  that  the  resultant  angular  velocity  of  the 
shuttle  is  a  function  only  of  the  total  energy  ininit  to  the  centrifuge.  When  the  centrifuge 
slows,  die  shuttle  should  return  to  nearly  zero  angular  velocity. 


Figure  4-8.  Tfane  to  Accolorato  Contrifugo 
with  Difftront  Power  Inputs 
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ngur*  Avaragc  Centrifuge  Drive  Moment 
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A  ttiird  aspect  of  tlie  oeotzifuge  dynuBict  could  potentially  be  deattabiKring  to  die  shuttle. 
Atlraqitiiig  to  niaiieuver  the  shuttle  while  die  centzifuge  is  in  operation  will  cause  a 
gyroscopic  moment  to  be  generated  from  the  changing  direction  of  the  centrifuge  angular 
momentum  vector.  From  Equation  4-16»  the  gyroacofnc  moment  induced  by  centrifuge 
rotatkm  for  different  shutde  angular  vdodties  is  plotted  in  Figure  4-11.  There  is  an 
addititmal  gyroscc^c  moment  due  to  the  angular  velodty  of  the  shutde  around  the  earth. 
The  gyroscqric  monmnt  due  to  centrifugation  at  a  250  mile  altitude  orbit  is  also  plotted  in 
Figure  4-11.  Like  the  drive  moment,  the  gyroscopic  moment  is  much  smaller  than  the 
imbalance  moment  and  acts  about  a  slowly  moving  axis. 


Figurs4*11.  CsntrHugs  Gyroscopic  Momenta  for 
DHfsrsnt  Radial  Accalsrations 
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To  summarize,  there  are  three  potentially  <testabilizing  moments  and  a  single  force  of 
concern  during  centrifogatimi.  Mass  imbalance  of  the  centrifuge  riders  causes  both  a 
disturbing  force  and  die  largest  magnitiKie  moment,  although  both  the  force  and  moment 
rotate  widi  die  centrifuge  and  have  a  net  effect  of  zero.  The  drive  moment  to  accelerate  the 
centrift^  and  naintain  a  constant  angular  velocity  is  significant  because  it  is  about  a 
constant  axis  for  potentially  Itmg  durations.  Hnally,  die  gyroscqnc  effect  of  positioning  the 
shuttle  while  the  centrifuge  is  in  operatira  creates  a  relatively  sniall  magnitude  moment  that 
acts  about  a  slowly  moving  axis  finr  potentially  long  durations.  In  foct,  a  small  gyroscopic 
moment  will  exist  whenever  die  centrifuge  is  operated  due  to  the  mbit  of  the  shutde  when 
the  shutde  orientation  is  maintained  with  reqiect  to  local  vertical. 
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03  CcBkrtf^  and  Shuttle  Djnuuiik  Shmitetlon. 


A  dynunic  simalatioii  was  oooducted  ci  the  shuttle  during  typical  centrifuge  operation.  The 
dmiilatinn  ftatund  a  sngle  S15  peioendle  male  ruler  located  lOG  cm  from  die  center  of  the 
centrifi^  widi  a  desired  radial  accdeiation  at  his  head  ci2G.  The  tcual  time  of  the 
rimiiiatkni  was  limited  to  80  seconds  to  minimize  dm  amount  of  data  for  analysis.  There  was 
no  attempt  to  bahmoe  die  mass  oi  the  rider,  nor  wme  there  any  moment  compensation 
devtees. 

F^me  4-12  displays  the  tangential  and  radial  aocderation  of  the  centrifuge.  After  iqjpraximately 
IS  the  rider  has  adueved  a  radial  aocderation  of  2  G  and  die  tangential  aocderation  is 

disoomimied.  At  time  60  seconds,  the  centrifuge  is  deoderated  to  a  stop. 


Fioure  4*12.  CantrHiige  Radial  and  Tangantial 
Accataradon  for  Singta  Ridar  at  100  cm 
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As  we  described  in  Section  4.3.2,  motion  of  the  single  rider  will  cause  the  shuttle  centm^  of 
mass  to  translate  in  a  dicular  path.  Figure  4-13  displays  the  vector  compmients  of 
translation  of  the  shutde  center  of  mass.  The  actual  d^  contains  smooth  sinusoidal  motion, 
however  data  sanqding  fiv  {dotting  creates  the  slighdy  jagged  look  in  the  figure.  During  the 
tsmgential  aocderation  period  ci  die  centrifuge,  the  shuttle  acquires  a  small  translational 
velodty  diat  persists  alto  the  centrifuge  ceases  accelerating.  It  is  because  of  this  velocity 
bias  diat  die  di^lacement  of  die  shuttle  center  of  mass  slowly  changes  foom  its  initial 
position.  The  finoe  from  the  centrifugatimi  b  plotted  in  Figure  4-14. 
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The  destabilizing  moment  transmitted  to  the  shuttle  from  the  centrifuge  acceleration  and  mass 
imbalance  are  di^layed  in  Figure  4-lS.  The  small  centrifuge  drive  moment  and  gyroscopic 
moment  are  not  noticeable  on  this  figure  because  of  the  magnitude  of  the  sinusoidal 
imbalance  moment.  As  noted  earlier,  the  imbalance  moment  is  on  the  order  of  10^  N  m. 


The  effects  of  the  disturbing  moments  on  shuttle  orientation  are  displayed  in  Figure  4-16. 
The  imbalance  moment  creates  an  angular  precession  of  the  shuttle  in  the  yz-plane.  The 
centrifuge  drive  moment  generates  a  constant  velocity  rotation  of  the  shuttle  about  the  x-axis 
that  (xmtinues  until  the  centrifuge  decelerates. 
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FH^r«4-16.  Shuttle  Angular  Dispiacetncnt 
from  Singl*  Rid*r  Cantrifugation 


4.4  Human  Fotrered  Caitrifkige. 

In  Section  3.1,  we  discussed  the  use  of  exercise  to  aid  in  preventing  Space  Adaptation 
Syndrome  and  micrc^vity  deconditioning.  It  is  possible  that  the  short  arm  c«itrifuge  could 
be  powered  by  riders  using  a  pedalling  mechanism  to  drive  the  centrifuge.'  *^  While  this 
provides  the  dual  benefit  of  exercise  and  acceleration,  it  also  requires  additional  centrifuge 
complexity  and  introduces  a  new  potential  source  for  destabilizing  moments  to  the  shuttle.  A 
functional  sketch  of  how  the  pedals  might  power  the  centrifuge  is  displayed  in  Figure  4-17. 

An  average  person  can  exert  between  25  and  100  Watts  of  power  during  moderate  levels  of 
exercise.'’’*^  Typical  pedalling  speeds  for  cyclists  range  from  40  to  80  rpm,  and  pedal 
torques  range  from  20  -  60  N*m  during  cycling.*’  **  Thus,  similar  to  an  automobile  engine, 
the  pedalling  of  a  centrifuge  rider  will  be  limited  by  the  torque  he  can  generate  at  low  rpm 
and  by  the  power  output  he  can  maintain  at  high  rpm.  Figure  4-18  displays  the  torque 
requir^  for  pedalling  at  different  speeds  at  different  average  power  outputs. 
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Figur«4>l8.  Torqy-SpMd  Curv  for  P»d«IHng 
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While  the  centrifuge  is  accelerating,  a  drive  moment  equal  to  the  product  of  the  centrifuge 
inertia  and  angular  acceleration  will  be  transmitted  to  the  shuttle,  as  we  described  in 
Equation  4-16.  Pedalling  power  from  the  rider  will  be  used  to  create  the  drive  moment 
through  either  a  mechanical  or  electrical  power  transfer.  The  moment  required  to  rotate  the 
pedals  can  be  less  than,  equal,  or  greater  than  the  centrifuge  drive  moment  by  using  different 
effective  gear  ratios  in  the  power  transfer.  Since  the  torque  and  rpm  range  of  Figure  4-18  is 
similar  to  that  required  for  the  centrifuge  (see  Figures  4-3  and  4-9),  we  will  assume  there  is 
a  net  gear  ratio  from  pedals  to  the  centrifuge  of  unity. 

Once  the  centrifuge  reaches  the  desired  speed,  the  pedalling  torque  should  drop  to  a  level 
required  to  n^te  aerodynamic  and  friction  effects.  Since  the  purpose  of  the  pedals  is  to 
permit  extended  periods  of  exercise,  a  source  of  drag  would  have  to  be  provided.  A  variable 
friction  load  applied  near  the  location  of  the  pedals  results  in  a  constant  moment  being 
transmitted  to  the  shuttle  that  rotates  in  the  centrifuge  yz-plane  as  the  centrifuge  ^ins.  This 
moment  will  have  a  similar  effect  on  the  shuttle  to  the  imbalance  moment  described  earlier, 
except  that  it  will  create  a  much  smaller  angular  excursion  of  the  shuttle.  The  moment 
transmitted  to  the  shuttle,  assuming  the  rider  is  located  1(X)  cm  from  the  spin  axis  and  there 
is  a  unity  gear  ratio  from  pedals  to  the  centrifuge,  is  displayed  for  different  radial 
accelerations  and  exercise  power  outputs  in  Figure  4-19. 
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Another  potentially  destabilmng  moment  created  by  the  motion  of  the  pedals  is  a  gyroscopic 
moment  that  is  piq)ortional  to  the  inertia  of  die  pedals  and  rider’s  fe^,  the  angular  velocity 
of  the  pedals,  a^  Ae  angular  vdocity  of  the  centrifuge: 

•  [4-30] 

Unlike  the  gyrosoofnc  moment  caused  by  centrifuge  and  shuttle  modem,  which  was  present 
only  when  the  shuMe  was  rqxmtioning  (recall  Equation  4-16),  the  gyroscopic  moment  due  to 
pedalling  motiem  is  always  present  while  the  centrifuge  is  spinning.  This  moment  is 
quantified  in  Figure  4-20  for  different  centrifuge  radial  accelerations.  From  the  figure,  it 
evidrat  that  this  gyroscopic  moment  is  nearly  as  large  as  some  of  the  other  destabilizing 
moments,  and  dianges  direction  as  the  centrifuge  rotates.  Approximations  of  the  moment  of 
inertia  of  the  lidCT’s  feet  are  presented  in  Appendix  Al.  Using  the  procedure  described  in 
Section  4.3.2,  vAnett  the  shuttle  was  modelled  as  a  slender  bar,  the  gyroscopic  moment 
caused  by  pedalling  would  produce  maximum  shuttle  deviations  on  the  order  of 
approximately  lO*’  d^rees.  It  is  important  to  note  that  the  moment  transmitted  to  the  shuttle 
by  pedalling  and  the  gyroso^c  moment  created  by  rotating  the  feet  will  always  act  in  the 
shuttle  y-z  plane,  but  be  out  of  phase  by  90  degrees. 


37 


4^  Dynamic  Balancing  and  Moment  Compemation. 

To  understand  the  significance  of  the  destabilizing  moments  created  by  cmtrifuge  opoation 
and  pedal  power,  the  orders  of  magnitude  of  the  different  moments  are  displayed  in  Figure 
4-21  along  with  typical  oivircmmental  disturbance  torques. ’’ 

The  reaction  moments  from  centrifuge  operation  are  t^ously  orders  of  magnitudes  greater 
than  the  minute  moments  associated  with  environmental  disturbances.  It  is  our  goal  in  this 
sectimi  to  discuss  m^hods  for  reducing  die  destabilizing  moments  of  the  centrifuge  to  a 
level,  if  possible,  that  approadies  environmoital  disturbances. 

Of  course,  one  item  that  has  been  neglected  is  the  existing  space  shuttle  momentum 
management  system.  The  shuttle  is  equipped  with  various  devices  to  assist  in  the 
maintenance  of  attitude  under  disturbances  from  environmental  and  equipment  sources  and 
astronaut  modem.  Significant  moments  applied  for  a  relatively  long  duration  can  saturate  the 
momentum  management  system,  requiring  positioning  thrusters  to  be  used.  Since  the  shuttle 
carries  a  limited  supply  of  fuel,  it  is  important  to  avoid  extended  duration  moments. 
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4.5.1  Oymuiiic  Balandng. 

From  Figure  4-21,  the  force  created  by  the  dynamic  imbalance  of  the  centrifuge  with  a  single 
rider  generates  die  largest  disturbance  moment  As  we  described  in  Section  4.3.2,  the 
imbalance  force  creates  aocderations  between  10^’  G  and  10'^  G  of  the  shutde  widi  a 
frequent  on  die  order  of  1  Hz.  Although  the  magnitude  of  the  force  seems  high,  studies  of 
an  animal  centrifuge  fin*  use  on  the  Space  Station  Freedom  estimate  nominal  crew  movements 
and  space  station  operaticMis  such  as  doddr^,  pointing,  and  varimis  fims,  blowers,  etc., 
would  impart  aocderations  on  the  order  of  1(H  G,  with  a  frequency  range  of  10'^  to  10 
These  ranges  indicate  die  force  and  frequency  of  an  untxdanced  cmitrifuge 
may  be  acceptable  for  the  shuttle.  Furthermore,  if  the  imbalance  force  is  deemed  accqitable, 
presumably  the  moment  caused  by  the  force  acting  at  a  distance  from  the  shutde  coiter  of 
mass  with  die  same  frequency  would  also  be  tolerable.  On  the  other  hand,  the  centrifuge 
would  fold  its  greatest  utility  in  a  relativdy  frequent  qieradon  on  very  long  duration 
missions  fin*  whidi  conservadmi  of  thruster  fuel  would  assume  greater  importance. 

Since  it  is  not  known  if  die  mass  imbalance  on  the  centrifuge  will  cause  unaccqitable 
deviations  in  attitude  of  die  shutde,  methods  for  reducing  the  imbalance  force,  and  hence 
imbalance  moment,  are  considered  in  the  following  subsections. 


39 


OnKMite  Riders. 


The  simplest  way  to  reduce  the  imbalance  is  to  position  a  second  rider  on  the  opposite  side 
of  the  centrifuge.  If  the  subject  had  equal  mass  and  was  equidistant  from  the  center,  the 
coitrifuge  would  be  perfectly  balanced.  More  likely,  the  mass  of  the  second  subject  will  be 
diffenmt  from  the  first  and  the  position,  although  it  can  be  roughly  predicted,  will  vary 
slightly  each  time  the  subjects  are  situated.  To  quantify  the  effects  of  partial  imbalancing, 
ctmsi^  Figure  4-22.  This  figure  displays  the  residual  imbalance  mom«it  for  different 
radial  accelerations  after  placing  a  5  percentile  female  rider  equidistant  but  opposite  a  95 
percentile  male  rider. 

Although  an  improvemoit  of  50%  or  more,  the  imbalance  is  still  significant.  Even  if  the 
masses  of  the  two  riders  are  equal,  the  effects  of  position  are  significant.  Figure  4-23  shows 
the  resulting  imbalance  moment  for  different  accelerations  resulting  from  two  95  percentile 
male  riders  being  positioned  at  approximately  100  cm  from  the  center,  both  with  some 
differential  position.  It  is  conceiv^le  that  subjects  could  easily  have  a  5  -  10  cm  position 
error,  which  still  results  in  a  significant  imbalance  moment. 


4.5.1  Jt  Counterbalance  Maas. 

Similar  to  the  ooiioq)t  of  an  opposing  rider,  a  large  counterbalance  mass  could  be  used  to 
balance  die  centrifuge.  The  counterbalance  mass,  hereafter  called  countermass,  could 
probably  be  more  reliably  positioned  than  a  human,  however  die  mass  would  be  significant 
and  undesirable.  As  an  ^ternadve,  consider  a  combinatimi  of  t^iposing  rider  and  small 
cduntermass.  By  positioning  the  large  and  small  rider  equidistant  from  the  centrifuge  center, 
the  countermass  can  be  used  on  the  side  of  tbc  small  rider  to  move  the  combined  center  of 
mass  back  to  die  center  of  rotation. 

It  is  important  to  quantify  how  much  mass  and  how  much  motion  is  required  for  the 
countermass  to  be  effective.  Figure  4-24  displays  a  schematic  of  the  centrifuge  with  two 
riders  and  moveable  countermass.  Dynamic  balance  can  be  achieved  by  locating  the 
countermass,  ni},  such  that  the  center  of  mass  of  the  system  is  at  the  center  of  the  centrifuge, 
or 


m/j-jn/j-mjrj  -  0  . 


[4-31] 


41 


42 


Note  that  it  is  not  necessary  for  foe  stm  oi  the  small  Fitter’s  mass  and  oountermass  to  equal 
the  mass  of  the  laf|e  rider.  Because  of  this,  foe  size  of  the  countermass  can  be  minimized 
by  allowing  it  to  travel  to  the  edge  d  the  centrifoge,  approximately  200  cm  from  the  center. 

For  foe  worst  case  of  a  95  percentile  male  and  S  percentile  female,  each  located  with  their 
heads  100  cm  from  foe  center,  a  countermass  of  ^.8  kg  would  be  required  at  200  cm  (xi  the 
side  of  die  female.  For  die  case  d  two  equal  mass  subjects  positioned  equidistant  from  the 
center,  foe  same  46.8  kg  countermass  could  be  moved  to  the  center  of  the  centrifuge  and 
have  no  effect  on  foe  center  of  mass.  Since  the  countermass  is  feiriy  large,  it  might  also  be 
desirable  to  position  the  female  further  from  the  center  than  the  male.  In  the  case  of 
equidistant  subjects,  however,  die  ideal  countermass  to  accommodate  foe  maximum  and 
minimum  subjects  is  46.8  kg,  with  a  range  of  travel  from  the  center  to  a  200  cm  radius.  If 
desired,  die  countermass  could  amply  be  a  shell,  to  be  ballasted  with  available  materials  in 
space.  In  this  way,  die  liftoff  mass  would  be  minimized. 

To  make  die  balancing  automatic,  we  pn^iose  the  motion  of  the  cmmtermass  be  controlled  by 
a  closed-loop  contnriler  with  load  cell  feedback  from  the  center  of  centrifuge.  Figure  4-25 
di^days  a  block  diagram  of  a  conoqfoial  balance  controller.  Two  load  cells,  on  opposing 
arms  d  die  centrifuge,  measure  the  force  F|  caused  by  radial  acceleration  of  the  b^vy 
subject  and  Fj  caused  by  radial  aocelerati<»  of  the  lighter  subject  and  countermass.  The 
contnd  algorithm,  represented  D(s),  would  generate  a  signal,  u,  to  move  the  countermass 
until  die  difference  between  the  two  load  cell  values,  e,  is  zero.  The  actuator  for  moving  foe 
oountermass  is  not  specified  here,  however  one  solution  might  be  to  mount  the  countermass 
on  railings  and  use  tension  in  wire  attached  to  both  ends  to  pull  the  countermass  in  the 
required  direction. 


43 


Dq>ending  on  die  design  oi  the  positioning  mechanism,  it  might  be  possible  to  move  the 
oountennass  fiut  enough  to  bala^  transient  motion  of  the  riders,  such  as  movement  of  arm 
or  1^  position.  Even  if  the  reqxxise  of  die  balancing  sytiem  was  too  slow  for  transient 
center  of  mass  deviations,  the  system  could  adapt  to  a  steady  ^ate  change  in  system  ceata  of 
mass,  such  as  a  rider  moving  his  hands  frcnn  his  sides  to  over  his  chest,  perluqis. 

Certainly  many  details  of  a  dynamic  balancing  mechanism  and  controlte’  require  further 
considotdion.  There  is  litde  discussion  of  the  positioning  medianism  i»eaented  here.  In 
spite  of  these  details,  however,  it  is  likely  an  effective  balancing  mechanism  could  be 
developed  that  would  reduce  the  imbalance  moment  to  a  tolerable  value. 

4.5,2  Moment  Conpensation. 

Even  if  the  imbalance  moment  can  be  nearly  eliminated,  significant  moments  are  created  by 
the  centrifuge  drive,  cross-coupling  of  angular  velocities,  and  subject  pedalling.  In  the 
following  subsecti<His,  compensation  for  these  moments  is  discussed. 

Countmrbalance  Innrtia. 

The  space  shuttle  may  already  be  equipped  with  a  reaction  wheel  or  other  device  to  prevent 
rolling  about  the  shu^e  x-axis.  If  tiiis  is  the  case,  it  may  not  be  necessary  to  eliminate  the 
centrifuge  drive  moment.  N^ecting  any  shuttle  compensation  devices,  a  simple  metiuxl  to 
eliminate  the  drive  moment  is  by  angular  acceleration  of  an  object  in  the  o^josite  direction, 
as  shown  in  the  sketch  in  Figure  4-26. 

Rotation  of  a  counterbalance  inertia,  snortened  to  counterinertia,  in  the  tqqxmte  direction  of 
die  centrifuge  will  create  a  moment  of  the  opposite  sign.  Since  a  moment  rqjplied  to  a  rigid 
body  has  the  same  effect  r^;ardless  of  the  point  of  application,  it  is  not  necessary  to  rotate 
the  countermass  at  the  centrifuge  location,  although  it  may  be  prefisrable  for  othn  reastms. 
Furthermore,  the  counterinertia  need  not  haw  an  identical  inertia  to  the  centrifuge  and 
riders.  A  smaller  inertia  can  be  accdeiated  at  a  faster  angular  acceleration  over  the  same 
duration  of  time  to  compensate  for  the  drive  moment.  From  buttle  mass  omsiderations,  a 
counterinertia  of  low  mass  and  low  inertia,  driven  at  a  high  angular  acceleration,  is  the  most 
desirable. 

The  same  counteriitertia  that  n^ates  the  drive  torque  can  be  used  to  reduce  or  eliminate 
gyroscopic  moments  due  to  shuttle  positioning  and  shuttle  motion  about  the  earth.  If  the 
centrifuge  and  counterinertia  have  the  same  angular  momentum,  the  centrifuge-induced 
gyroscc^c  moment  is  eliminated.  It  is  important  to  determine  whether  a  low  inertia 
counterinertia  propelled  at  high  angular  accelerations  to  eliminate  the  drive  torque  will  result 
in  an  equal  and  opposite  angular  momentum  to  the  centrifuge,  therd>y  also  eliminating  the 
oentrifii^  gyrcMcqnc  moment.  Consider  the  torque  required  to  angi^ly  accelerate  the 
centrifuge,  describe  previously  in  Equation  4-15,  and  expressed  as  a  scalar: 
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■  ^C®QW  • 


[4-32] 


If  the  counterinertia,  denoted  by  the  subscript  Cl,  is  allowed  to  accelerate  at  a  different  rate 
dian  die  centrifuge,  die  moment  of  inertia  of  die  counterinertia  required  to  eliminate  the  drive 
ttnque  is: 


[4-33] 


If  the  centrifuge  is  pnqielled  with  a  constant  angular  acceleration  for  a  time  r,  tte  angular 
momentum  of  the  cent^ge  at  the  end  of  this  time  will  be: 


•  [4-34] 

Similarly,  the  angular  momentum  of  the  counterinerda  after  the  same  time  interval  is: 

Ha  •  tc^a  ■  •  [4*35] 

Recalling  the  constraint  Equation  4*33,  which  defines  the  inertia  of  the  oounterinertia 
required  to  eliminate  die  drive  torque,  it  can  be  seen  diat  substitution  of  Equation  4-33  into 
4-3S  yields  a  oounterinertia  angular  monwntum  diat  is  equal  and  opposite  to  the  angular 
momentum  of  the  centrifuge.  Thoefoie,  it  is  possible  to  use  a  counterinertia  mechanism 
with  lower  mass  and  inertia  and  higher  angular  acceleratitHi  and  velocity  than  die  centrifuge 
and  still  eliminate  both  the  centrifuge  drive  and  gyroscc^ic  moments. 

One  way  diat  die  oounterinertia  could  be  implemented  is  to  use  a  variable  qieed  mechanical 
or  dectrical  drive  and  fixed  inertia.  If  the  speed  was  variable  over  a  large  range,  any 
magnitude  torque  could  be  generated.  The  ^fBculty  in  this  cmicqit,  however,  is  the  use  of  a 
variable  qieed  drive.  Mechanical  and  electrical  variable  speed  drives  might  add  too  much 
complexity  and  mass  to  be  considered. 

An  alternative  counterinertia  design  would  feature  a  variable  inertia  medianism  and  fixed  angular 
aoodeiation  ratio  idative  to  the  centrifuge.  The  counterinertia  drive  could  be  provided  by  a 
mechanical  connection  witii  fixed  gear  ratio,  ot  by  a  separate  dectrical  drive.  To  provide  a 
variable  inertia,  it  is  envisiaaed  that  two  masses  could  be  mounted  on  rails  and  positioned 
outwards  in  opposite  tfirections.  Similar  to  die  dynamic  balancing  mechanism,  a  dosed-loqi 
control  tyslem  could  determine  the  optimum  position  for  die  masses  to  negate  die  centrifuge 
drive  moment  Assumh^  the  worst  case  of  two  95  percentile  mde  riders  positioned  100  cm 
ftom  die  center  and  a  centrifuge  inertia  (ff  25  kg’ni^,  die  adjustable  mass  on  eadi  side  to 
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eUminate  the  drive  mcHnent  is  plotted  in  Figure  4-27  as  a  function  of  die  ratio  of  oounterinerda 
angular  vdocity  to  centrifuge  angular  velocity. 


4JSJ2J2  OmMdte  Centriftiges. 

Another  mediod  ftn*  reducing  the  drive  moment  is  by  propelling  a  second  two-rider  cmitrifuge 
in  die  opposite  directimi  of  the  original  centrifuge.  B^use  of  the  microgravity 
envirmment,  it  would  not  matter  physiologically  that  the  subjects  are  fiunng  opposite 
directions.  If  die  inertias  were  idratical  and  both  centrifuges  were  accelerated  at  the  same 
rate,  the  drive  moments  would  be  equal  and  opposite.  More  likely,  the  inmtias  would  not  be 
identical,  leading  to  a  situadm  analogous  to  that  described  in  Section  4.S.1.1,  where  an 
additional  mass  was  required  to  balance  riders  of  differmit  size.  In  this  case,  a  counterinertia 
device  cmild  be  used  to  balance  any  residual  dri\«  moment  from  the  two  centrifuges. 

While  qniosing  two-man  centrifuges  are  inviting  in  order  to  reduce  the  mass  of  the 
counterinertia  mechanism,  diere  are  several  considerations  that  may  make  the  concept  less 
appealing  than  the  single  centrifuge  widi  counterinertia  concept.  For  instance,  the 
requirement  ftir  frnir  subjects  to  be  coitrifuged  simultaneously,  and  probably  a  fifth  to 
monitor  die  training,  implies  that  a  majority  of  the  shuttle  crew  is  required  whenever  the 
device  is  operated.  In  addition,  the  power  to  drive  the  centrifuge  is  increased  because  of  the 
additional  inertia. 
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AJ5J13  PedaOlBg  Compensation. 

As  described  in  Section  4.4,  the  exercise  load  for  the  pedals  would  be  produced  along  the 
pedal  axis.  The  moment  transmitted  to  the  shuttle  would  rotate  in  the  centrifuge  yz-plane 
similar  to  the  mass  imbalance  nuunent  described  in  Section  4.3.2.  Substituting  pedal 
nKMnent  values  into  Equation  4>23  yields  an  angular  excursion  of  the  shuttle  m  the  order  of 
l(r*  degrees.  It  is  possible  a  moment  that  causes  a  misorientation  of  this  magnitude  does  not 
require  fiirtiier  omsideration. 

The  gyroscopic  moment  created  by  the  rotating  pedals  and  subject’s  feet  also  produces  a 
small  precessimi  of  the  shuttle  in  the  shuttle  yz-plane.  A  properly  sized  counterinertia  could 
be  mounted  at  the  pedals  and  driven  in  the  opposite  direction  of  pedalling  to  reduce  the 
transmitted  moment.  It  is  unlikely  the  inertia  could  be  perfectly  sized,  but  a  significant 
porticm  of  the  transmitted  moment  could  be  eliminated. 

The  use  of  a  two-rider  centrifuge  would  also  tend  to  compensate  fi>r  both  disturbing  momoits 
from  pedalling.  The  compensation  would  only  be  ideal  if  the  two  riders  had  equivalent  foot 
and  1^  characteristics,  the  pedal  axes  were  equidistant  from  the  centrifuge  centm*,  and  the 
pedalling  forces  for  the  two  riders  were  equally  shared. 

4.6  Centriftige  Concept  Design. 

A  design  conc^  for  the  ^»ce-based  centrifuge  is  displayed  in  Figure  4-28.  The  centrifuge 
has  accommodations  fisr  two  crewmembers,  and  at  least  one  other  crewmember  would  be 
required  to  monitor  tiie  operatitm.  The  centrifuge  will  be  prcqielled  by  tiie  combined  power 
of  bodi  crewmembers  pedalling.  An  automated  mass  balancing  system  and  moment 
compensation  devices  minimize  the  disturbances  to  the  orbiting  shuttle. 

The  destabilizing  forces  and  moments  before  balancing  and  compensation  are  identified  in 
Figure  4-29.  The  direction  of  tiie  force  or  moment  is  indicated  by  an  arrow.  Several  of  the 
finces  and  rnmnoits  displayed  are  shown  pointing  in  an  instantaneous  direction,  determined 
by  the  position  of  tiie  centrifuge.  The  imbalance  force  and  moment,  pedalling  moment,  and 
pedal  gyroscopic  moment  all  rotate  as  the  centrifuge  spins,  so  that  the  net  effect  if  they  are 
of  constant  magnitude  is  to  induce  a  circular  translational  motion  at  the  shuttle  center  of  mass 
and  a  steady  precessicm.  The  centrifuge  drive  moment  and  gyroscopic  moment,  conversely, 
act  on  fixed  or  slowly  moving  axes.  The  gyroscopic  moment  points  orthogonally  to  the 
centrifuge  qnn  axis  and  the  axis  of  shuttle  angular  motion.  The  centrifuge  drive  moment 
may  be  the  most  significant,  because  it  induces  a  constant  roll  angular  velocity  in  the  shuttle 
that  lasts  until  tiie  centrifugation  is  ceased. 

Mass  balancing  of  the  centrifuge  could  be  accomplished  with  a  47  kg  counterbalance  mass. 
This  could  be  a  solid  object,  or  to  save  liftoff  mass,  it  might  be  a  shell  filled  with  a  fluid  or 
nnall  objects  (hiring  orbit.  To  use  the  centrifuge  with  only  a  angle  crewmember,  some 
riiuttle  gear  would  need  to  be  strapped  in  plac^  of  the  missing  rider. 
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Drive  and  gyroscopic  momoit  balancing  could  be  provided  by  a  constant  ^)eed  ratio, 
variable  inertia  inedianism  comivised  of  two  masses  propelled  along  rails.  >Arith  a  speed 
ratio  of  10,  the  total  mass  of  the  counterinertia  would  only  be  approximately  12  kg, 
excluding  the  mass  and  inertia  of  the  support  structure.  Another  concept  that  would  permit 
varying  the  mass  of  the  counterinertia  mechanism  could  feature  a  circu^  tube  with  spokes 
that  would  be  filled  wifii  fiuid  as  necessary  to  achieve  the  proper  inertia.  One  difficulty  with 
implementing  a  fiuid-fiUed  tube  is  withdrawing  fiuki  from  the  tube  against  the  radial 
ac^eration  of  the  device. 
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SECTION  5.0 
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5.0  Fhyriotogk  Efliects  <rf  Coitriftigation. 

The  radial  accderaticm  generated  by  the  centrifuge  is  c^}able  of  stimulating  the 
cardiovascular  system  of  riders,  however  the  high  angular  rates  may  create  an  environment 
with  high  potoitial  for  discmentation. 

5.1  Crewmember  Moticm  Skkness  and  Disorientation. 

On  earth,  a  combinaticni  of  otolith,  visual,  and  somatosensory  inputs  enable  a  person  to  form 
a  perception  of  linear  acceleration  and  orientation  with  respect  to  the  acceleration.  Similarly, 
visual  and  somatosensory  cues,  as  well  as  ininit  from  the  semicircular  canals,  are  processed 
to  form  an  estimate  of  angular  motion  and  orientation. 

The  human  vestibular  system  is  located  bilaterally  in  the  inner  ears.  It  is  comprised  of  the 
semicircular  canals  and  and  utricular  otolith  organs.  The  function  of  the  otoliths  and 

canals  is  to  sense  modem  of  the  head  and  relay  this  informatitm  to  the  brain.  Without 
thoroughly  describing  the  anatomy  and  operation  of  these  sets  of  organs,  it  is  well  known 
that  the  otoliths  are  «rimiiiat«t  by  the  so-^ed  specific  force,  defined  as  the  linear 
acceleration  of  the  sununed  with  the  effect  of  gravity,  and  orientation  of  the  head  with 
respect  to  the  specific  force.  The  semicircular  canals  respond  primarily  to  the  resultant 
angular  acceleraticm  stimuli. 

In  the  microgravi^  of  earth  orbit,  a  crewmember  lacks  the  visual  and  gravitational  cues  that 
are  usually  used  to  define  Us  perception  of  his  orientation  and  motion.  The  lack  of  these 
stimuli  and  cues  may  ctmtribute  to  a  crewmember’s  suscq>tibility  to  space  sickness,  or  Space 
Adqrtation  Syndrome.  In  space,  contrary  to  on  earth,  the  static  orientation  of  an  astronaut’s 
head  does  not  influoice  the  activity  of  the  otoliths.  The  nonexistmice  of  the  customary  1  G 
bias  creates  linear  acceleration  stimuli  that  can  change  direction  rapidly  even  without 
significant  head  movement.”  It  is,  in  fact,  the  existence  of  abnormal  otolith  signals  in  the 
presence  of  seemingly  normal  canal  and  visual  information  that  is  generally  regarv^ed  as  a 
source  of  space  motion  sickness.” 

Astronauts  aboard  the  Space  Shuttle/Spacelab  1  mission,  in  1983,  recorded  their  observations 
and  qualitative  measures  of  space  sickness  throughout  the  flight.^*  Most  of  the  astronauts 
felt  some  discomfirrt  from  any  type  of  motion,  although  attempting  to  limit  head  motions 
helped  alleviate  the  amdition.^’  Other  studies  hypothesize  that  astronauts  exposed  to 
microgravity  experience  a  change  in  interpretation  of  sensory  afferent  signals,  particularly 
from  the  otoliths.”'”  Subjects  participating  in  studies  involving  angular  acceleration 
displayed  no  significant  change  in  the  threshold  of  detection.” 

Since  the  short  radius  centrifuge  conceived  for  space  application  produces  rapid  angular 
motum,  it  is  omceivable  that  centrifugation  could  cause  disorientation  or  space  sickness.  In 
an  interesting  paradox,  the  centrifuge  might  reduce  the  potential  for  space  sickness  by 
creating  a  racM  acceleraticHi  to  stimulate  the  otoliths,  while  it  increases  the  potential  for 
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cross-ooiipifid  ai^ular  motions  wiuch  cause  diaorieolatioa  and  discomfort.  In  this  section,  we 
examine  the  potential  fiv  dumientation  during  short  radius  centrifugation  and  devek^ 
madmnatical  modds  .for  the  reqwnse  of  die  vestibular  system  to  acceleraticm  stimuli.  A 
general  treatment  of  astronaut  disorientadoo  in  microgravity  has  not  been  attempted. 

5.1.1  Cmss^^ottiding  Dlimion. 

A  disadvantage  of  short  radius  centrifugation  is  the  increased  susceptibility  to  the  cross- 
coupling  illusion  due  to  the  high  angular  rate  of  the  centrifuge.  This  illusion  can  arise  from 
simultaneous  stimulation  of  the  vestibular  apparatus  by  angular  modrai  in  two  planes.  The 
vestibular  system  normally  senses  angular  motitm  in  multiide  planes  accurately  and  with  no 
disccunfort  or  disorientation.  However,  because  of  the  dynamics  of  the  semicircular  canals, 
discussed  in  Secticm  S.1.2,  there  is  potential  for  disorientation  when  the  vestibular  system  is 
exposed  to  a  long  duratitm  constant  magnitude  angular  velocity.  In  this  case,  movemoit  of 
the  head  relative  to  the  existing  plane  of  angular  velocity  may  produce  the  percqition  of 
rotation  about  a  diffoent  axis.  The  illuskm  of  angular  modem  produced  by  these  events  is 
termed  die  cross-coupling  illusion,  and  is  sonmtimes  referred  to  as  Coriolis  illusitm. 

This  phenomena  is  femiliar  to  aircraft  pilots.  During  an  extended  turn  in  an  aircraft,  a  pilot 
becomes  to  the  motion  so  that  any  abrupt  head  movements  may  be  disorienting. 

Similarly,  motion  on  existing  centrifuges  is  known  to  provoke  diis  disorientadon.  Centrifuge 
subjects  learn  to  avoid  abrupt  head  movmnents  or  acclimate  to  the  sensations.  The  lack  of  a 
visual  reference  can  make  die  illusion  even  more  prevalent  in  centrifugation. 

The  extremdy  short  radius  cf  a  qiace-based  centrifuge  implies  a  large  angular  velocity  would 
be  required  to  achieve  appropriate  radial  acceleraticms.  Subjects  that  become  acclimated  to 
this  motion  iin^  be  prcdifoit^  ficom  making  even  small  modems  of  the  head.  In  feet, 
research  on  die  effect  of  aocdecation  in  anmliorating  or  worsening  the  illusiem  indicates  zero- 
G  cross-coupling  motion  is  less  discomforting  than  the  same  modems  at  1.8  G.” 

The  traditiemal  Cexiolis  acederatiem  is  neH  a  stimulus  for  the  cross-cempling  illusiem.  The 
illusion  is  stimulated  by  the  presence  eif  cross-coupled  angular  velocities,  also  called  the 
Coriolis  angular  acceleration.  Consider  the  expression  for  the  angular  velocity  of  the 
centrifuge  subject.  If  the  subject  is  permitted  to  move  his  head  relative  to  the  centrifuge,  the 
total  angular  velocity  vector  of  his  b^  is: 


^ss*^ci8s***aic  • 


Differentiating,  the  angular  acceleraticm  of  the  subjects'  bead  is: 


[5-1 


[5-2 


The  Cori<dis  angular  accderation  represents  those  terms  generated  by  the  vector  cross 
inoduct  angular  velocities.  Since  the  angular  motion  of  die  space  shuttte  is  likely  to  be  a 
slow  rate,  the  Ctmolis  angular  acceleration  term  of  most  concern  is: 


^CtSS^^BK  • 


To  quantitatively  measure  the  potoitial  for  the  cross-coupling  illusion  on  the  short  arm 
^trifiige,  Figure  S-1  displays  a  comparison  of  the  angular  velocities  of  a  subject  located 
100  cm  finHn  die  center  of  a  centrifuge  at  different  radial  acceleratitms  to  a  pilot  of  an 
aircraft  with  different  turning  speeds. 


From  Figure  S-1,  it  is  obvious  that  the  high  angular  velocity  of  the  centrifuge  makes  the 
magnitude  ci  die  potential  stimulus  larger  than  during  typical  aircraft  turns  with  the  same 
head  imitioas.  ^Miether  die  increased  stimulus  translates  into  a  more  discomforting  sense  of 
dismientadon  is  unknown,  but  would  not  be  surprising.  Maintenance  of  head  orientation 
widi  reflect  to  the  centrifoge  arm  may  therefore  prove  to  be  particulariy  important. 
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5.1^  VcatBNilur  Model. 


Both  sets  of  ocgans  can  be  mathematically  modelled  as  indqiendent  first  (nxler  dynamic 
systems.^ 

The  otoliths  are  physically  positi<»ed  in  the  head  pitched  bock  25”  from  the  head  horizontal 
reference  posititm.  It  is  the  projection  oi  the  gravitoinertial  accderation,  called  the  ^>ecific 
force,  into  the  pitched  coordinates  that  stimulates  the  ottriiths.  The  otoliths  respond  to 
qwcific  force  as  a  linear  accelerometer.  Accepted  mathematical  models  of  the  otolith 
nspoast  inclmle  a  first  order  term  rqnesenting  the  dynamics,  as  well  as  an  afferent 
processing  term.  In  addition,  the  sacoilar  otoliths  are  modelled  with  a  ncm-linear  term  that 
corrects  for  the  direction  of  perceived  ‘‘down*.  The  total  dynamic  model  for  the  otoliths  is 
diq>layed  in  Figure  5-2.  Output  of  the  model  is  a  change  in  a  bsesline  rate  of  theoretical 
impulses  to  the  brain,  called  the  Afferent  Firing  Rate  (AFR),  in  units  of  impulses  per  second. 
Tte  model  also  oufouts  an  estimate  of  the  local  down  directira. 


There  are  two  sets  of  three  orthogonal  semicircular  canals  located  on  either  side  of  the  skull. 
As  with  the  otoliths,  the  hoiiztnital  canals  are  pitched  back  approximately  25”  from  the 
horizontal.  The  canals  act  as  angular  accelerometers  fisr  low  frequency  stimuli  and  angular 
velocity  transducers  for  high  frequency  stimuli.  The  dynamics  of  the  canals  are  modelled  as 
an  overdamped  torsional  pendulum,  with  different  time  constants  for  different  axis  canals. 

An  adaptation  term  is  included  by  many  researchers  to  account  for  the  behavior  in  humans 
for  the  canals  to  become  less  sensitive  to  an  angular  acceleration  stimulus  over  time.  The 
final  term  is  a  lead  processing  term  to  account  for  rate  sensitivity.  The  complete 
mathematical  model  is  displayed  in  Figure  5-3.  Again,  output  from  the  model  is  a 
theoretical  afferent  firing  rate. 
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Figur*  B*3.  Scmieifciilar  Canal  Dynamic  Modal  Block  Diagram 
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These  roatheinatical  models  were  implemented  in  C++  code  to  provide  a  tool  for  predicting 
tltt  leqxMise  of  a  crewmembers*  vestibular  system  to  acceleration  stimuli. 

5.13  T1ie<»etical  Vestibular  Output  Simulation. 

To  expkne  the  theoretical  leqxmse  of  the  vestibular  ^tem  to  space  centrifugation,  a 
simulation  was  omducted  of  a  typical  2  G  acceleration  profile.  Figure  S-4  displays  the 
tangential,  radial,  and  total  acceletation  of  a  95  percentile  male  subject  with  head  positioned 
at  100  cm.  The  Emulation  consists  of  three  sqgmntts:  (1)  a  30  second  segment  with  the 
centrifuge  at  rest;  (2)  a  60  sectmd  s^ment  where  the  crewmember  is  accelerated  to  2  G; 
and,  (3)  a  60  secrnid  deceleration  and  rest  s^ment.  Figure  S-S  displays  the  angular  velocity 
and  angular  acceleration  ci  the  subject  during  the  simulation. 

The  theoretical  otolith  and  semicircular  canal  respcmses  to  the  centrifugation  are  plotted  in 
Figures  S-6  and  5-7.  During  the  rest  s^ment,  the  otoliths  and  canals  transduce  a  zero 
signaL  Once  the  centrifuge  reaches  a  constant  radial  acceleration,  the  otoliths  transduce  a 
steady  state  signal.  The  canals  become  acclimated  to  the  steady  angular  velocity  of  the 
second  s^n^t  of  the  simulation,  and  the  re^nse  decays  nearly  to  zero.  Only  the  x-axis 
canal  reqxmse  is  plotted  because  the  y-axis  and  z-axis  canals  are  unstimulated  throughout  the 
simulatitm. 

The  subject  perceived  down  vector  is  displayed  in  Figure  5-8.  Due  to  the  non-linear 
response  of  the  saccular  otolith,  the  perceived  down  direction  is  not  along  the  subject  z-axis. 
Figure  5-9  shows  the  angle  between  the  perceived  down  and  the  subject  z-axis.  In 
microgravity,  witii  no  other  reference  cues,  the  subject  perceives  down  to  be  angled  25° 
forward  of  his  spinal  axis.  When  the  centrifuge  accelerates  and  decelerates  through  1  G,  the 
perceived  down  becomes  more  closely  aligned  with  the  subject  Z-axis.  Exposed  to  earth’s 
gravity  in  an  upright  position,  the  vestibular  model  would  yield  a  perceived  dovm  vector  with 
no  X  or  y  componoits  and  a  unit  z  output. 
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It  is  afusr  the  eanals  have  adapted  to  the  angular  ^wlocity  that  tl»  cross-coupling  illusion 
becomes  a  concern.  From  Figure  S-7,  it  is  obvious  die  signal  frmn  the  canals  normally 
decays  during  ccmstant  angular  motion.  Head  motion  even  after  the  decay  might  be 
distmenting. 

One  way  to  prevent  disorientation  might  be  to  continually  stimulate  the  canals  to  prevent  the 
acclimation  {»ocess.  Frequent  head  motion  of  the  subjects,  either  voluntarily  or  through  a 
moving  head  cushion  (tevice,  could  serve  to  insure  the  canals  correctly  transduce  the  rotation. 

5^  Cardiovascular  Effects. 

Exposure  to  microgravity  disrupts  the  equilibrium  point  of  many  physiologic  processes, 
including  some  cardiovascular  system  functions.  Although  the  deconditioning  of  the 
cardiovascular  system  is  not  discussed  in  detail  in  this  report,  short  radius  centrifugation  has 
beat  shown  to  simulate  the  heart.*  In  this  section,  we  discuss  the  significance  of  the 
acceleration  gradient  formed  by  the  short  radius  centrifuge,  describe  a  mathematical  model 
for  the  cardiovascular  system,  and  report  the  results  of  simulations  of  the  cardiovascular 
model. 

5.2.1  Acceleration  Gradimit  Effect. 

Any  rotating  object  generates  a  radial  acceleratitm  at  a  point  that  is  proportional  to  the 
distance  from  the  center  of  the  object.  A  body  subjected  to  the  rotation  will  experience  an 
acceletati(»  gradient  because  of  the  difference  in  acceleration  at  diffoent  radii.  This 
gradient  is  most  important  at  short  radii,  such  as  on  a  short  arm  centrifuge. 

Recalling  Equatitm  4-5,  the  acceleration  gradient  with  respect  to  centrifuge  radius  is  a 
constant  for  a  constant  angular  velocity: 


It  is  usually  the  acceleraticm  of  the  crewmember,  however,  that  is  used  to  select  an  operating 
conditimi  for  a  centrifuge.  Thus,  it  is  more  interesting  to  compare  the  acceleration  gradient 
for  centrifuge  riders  that  have  the  same  acceleration  magnitude  at  the  top  of  their  head.  In 
this  case.  Equation  5-4  can  be  replaced  with  the  desired  acceleration  at  the  head  divided  by 
the  radius  from  the  center  of  the  centrifuge: 


dr 


[5-5] 


where  is  the  desired  acceleration  in  G. 
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The  acceleration  gradient  for  different  radii  on  a  centrifuge  are  plotted  in  Figure  S-10.  The 
five  curves  represent  constant  acceleration  curves  from  1  G  to  5  G.  As  expected,  the 
acceleration  gradient  is  highest  for  short  radii  and  large  accelerations. 


The  differential  acceleration  on  a  centrifuge  for  a  95  percentile  male  nder,  in  units  of  earth's 
gravity,  is  displayed  in  Figure  S-11.  Recall  that  the  distance  from  the  top  of  the  head  to  the 
thighs-up  feet  position  is  syrproximately  99.5  cm.  Figure  5-11  displays  the  difference  in 
acceler^on  between  the  top  of  the  head  and  the  feet  for  different  accelerations  at  the  head. 

The  differential  acceleration  can  also  be  expressed  in  the  form  of  a  percentage  by  dividing 
the  change  in  acceleration  across  the  body  by  the  heart-level  acceleration: 

%AG  =  .  [5-6] 

The  percentage  change  in  acceleration  depends  only  on  the  distance  of  the  riders  head  from 
the  colter  of  the  centrifuge  and  not  the  acceleration  magnitude  at  the  head.  For  a  rider 
positioned  100  cm  from  the  spin  axis,  the  percentage  change  is  approximately  10%. 
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Figure  5-1 1 .  Differential  Acceleration  for  Different  Rider  Positions 


SJZJ,  Cardiovascular  Model  and  Simulation. 

The  cardiovascular  model  described  herein  parallels  the  development  presented  in  a  paper  by 
White,  et  al.^  It  also  draws  from  papers  by  Jazon,  et  al.,^*^  whose  approach  was 
similar  to  that  presented  in  earlier  papers  by  Rideout,^  Snyder,”  and  Avula.^  All  of 
these  authors  cited  the  earlier  work  of  Wormersly.’*  Many  of  the  parameter  values  for  the 
physical  properties  of  the  vascular  segments  were  takoi  from  these  papers  as  well  as  Fung’^ 
and  Bergel.”  However,  some  of  the  parameters  listed  in  Jaion”  were  clearly  in  error  and 
some  of  those  employed  by  other  authors  were  not  useful  because  of  differaices  in  the  layout 
of  their  models  and  ours.  Where  new  parameters  were  required,  they  were  derived  to  yield 
generally  acceptable  flow/pressure/volume  and  compliance  characteristics  of  the  various 
cardiovascular  subdivisions.  In  particular,  flow,  pressure,  and  compliance  data  from 
Burton,**  and  Guyton,**  were  employed. 

Figure  S-12  displays  the  general  schematic  for  the  model  compartments  and  their 
connectimis.  Ilie  model  describes  the  spatial  and  temporal  variation  in  the  mean  blood 
pressure  along  the  z-axis  of  the  body.  The  present  implementation  neglects  the  non-linear 
and  convective  terms  in  the  Navier-Stokes  ^nation  as  well  as  the  complication  of  radial  flow 
(flow  perpendicular  to  the  vessel  wall).  The  flow  is  assumed  to  be  laminar  except  in  the 
ascending  an  descending  aorta  where  fluid  flow  resistances  were  multiplied  by  33  to  account 
for  increased  pressure  losses  in  turbulent  flow.” 
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The  following  set  of  coupled  differential  equations  were  solved  for  each  arterial  and  venous 
vascular  segment. 


[5-7] 


d<Xt) 

dt 

drjt) 

dt 


1  wo.,  -  *  <*o.  -  *■«'»  . 

■  *,  •(«<)>  -  ■ 

2  -K  -rif)  •/  *"  ^ 


[5-8] 

[5-9] 


Where, 

t  =  Time 

r  -  Radius  of  vascular  segment 

1  =  Length  of  vascular  s^moit 

P  =  The  pressure  in  the  segment 

Q  =  The  s^mental  volume  flow 
C  =:  The  capacitance  of  the  s^moit 
L  =  The  inertance  of  the  segment 
R  =  The  viscous  flow  resistance  in  the  s^ment 
R«  =  The  vessel  expansicm  resistance 
Pq,  =  The  hydrostatic  pressure  diJQfaence 

across  the  s^ment  because  of  gravity 


[sec]. 

[m]. 

[m]. 

[Pa]. 

[m’'sec’‘]. 

[m^*Pa‘*]. 

[kg'm"^  or  [Pa’sec^-m*’] 
[Pa*sec-m‘’]. 

[Pa*  sec- m*’]. 


[Pa]. 


And,  the  following  2q>proximations  for  R,  L,  and  C  were  talmn  from  Rideout,  et  al.” 


8  •« 

[5-10] 

4*K 

[5-11] 

^  _  3  r*K*/ 

2‘Eh  ’ 

[5-12] 

p  _  0.002 

^  C 

[5-13] 
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Where, 

E 

s  Young’s  modulus  for  vessel  wall 

[Pa]. 

h 

s  Vessel  Wall  thickness 

[m]. 

Po 

s  density  of  blood 

[kg-m®]. 

Mo 

s  viscosity  of  blood 

[N-sec-m'^. 

Finally, 

\  “  Po-G^  go-i  Cos(e)  .  [5-14] 

Where, 

Gt  Si  The  z-axis  “G-level”  in  units  of  earth’s  gravity  [unitless] 

g,  The  earth’s  gravitadonai  acceleraticHi  [m'sec'^ 

d  s  The  angle  between  the  segmoit  and  the  z-axis  [radians]. 

For  each  vascular  s^ment.  Equations  5-7,  5-8,  and  5-9  must  be  solved  simultaneously. 

There  are  20  arterial  and  20  venous  vascular  s^ments  (the  pulmonary  circuit  is  segment  1). 
There  are  10  peripheral  capillary  bed  segments  nnxlelled  by  differential  equations  for 
pressure  and  flow.  The  peripheral  capillary  resistance  and  capacitance  are  modelled  as  “T” 
circuits  with  the  periphe^  capacitance  in  parallel  with  an  inlet  and  outlet  resistance  which 
represent  the  resistance  of  the  arteriole  and  venule  req)ectivdy.  The  pulmonary  circulation 
is  modelled  as  a  single  peripheral  bed  fed  by  a  single  arterial  s^ment  and  drained  by  a 
single  venous  s^meut.  The  chambers  of  the  heart  are  modelled  as  variable  cqiacitances 
separated  by  <me-way  valves.  The  pulmonic  and  aortic  valves  are  also  nuxlellcd  as  one-way 
valves.  The  pressure  reference  for  the  model  is  locatei  at  the  tricuspid  valve  which  is 
presumed  to  track  intrathoracic  pressure.  The  pressures  and  flows  in  the  various  segments 
are  coupled  by  their  ^tial  connections.  The  z-axis  coordinates  for  locating  the  origin  and 
termination  of  each  segment  were  based  on  a  177  cm  tall  standing  man.  Including  the 
equations  for  pressure  and  flow  in  the  heart,  th^  are  174  differmitial  equations  in  the 
model.  The  solution  was  computed  using  a  Runge-Kutta  numerical  integration  algorithm.^ 

The  initial  conditions  for  segmental  flow  were  set  based  on  a  steady-state  solution  for  the 
model  at  1  G,  (transverse)  corresponding  to  a  supine  posture.  Initial  pressures  were  set  by 
computing  the  hydrostatic  pressure  at  each  segment  corresponding  to  the  initial  local  z-axis 
acceleration.  Posture  is  adjusted  by  setting  the  appropriate  initial  orientation  angle  for  each 
segment  relative  to  the  z-axis  acceleration.  Postui^  and  acceleration  changes  during  a 
simulation  may  be  made  by  adjusting  the  orioitaticm  angles  and/or  acceleration  during  the 
simulation,  litis  can  be  most  easily  accomplished  by  adding  time  varying  profiles  for  G^  and 
the  0’s  from  which  the  Poi  values  for  the  flow  derivatives  are  calculate.  However,  the 
current  version  of  the  model  does  not  include  provisicms  for  simulating  the  effects  of  the 
short  term  cardiovascular  reflexes  responsible  for  controlling  the  blood  i»essure  and 
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distribution  of  blood  flow.  Therefore,  no  attempt  was  made  to  match  transient  responses  of 
the  model  to  those  expected  in  the  response  of  Ae  true  cardiovascular  system.  Rather,  the 
model  was  coded  so  that  the  cardiac  output  was  maintained  at  a  constant  value  (S.4 
liters- min'*)  until  the  regional  blood  flow  values  returned  to  their  initial  values.  The  resulting 
steady-state  pressures  or  “equilibrium  pressures”  in  the  various  segments  represent  the 
pressures  required  to  iruiintain  “normal”  blood  flow  through  the  vascular  and  peripheral 
segments,  llie  results  of  the  two  simulations  described  below  illustrate  the  results  of  this 
process. 

Presumably,  the  short  arm  centrifuge  should  produce  cardiovascular  pressure  similar  to  those 
experienced  by  man  at  -f  1  Gj  in  the  upright  posture.  To  compare  the  blood  pressure  profile 
produced  by  the  space  based  short  arm  centrifuge  to  that  seen  in  a  normal  upright  posture  on 
earth’s  surface,  two  simulations  were  computed:  one  in  which  a  constant  + 1  was  applied 
to  all  segments,  and  a  second  simulating  the  acceleration  produced  by  the  short  arm 
centrifuge  in  microgravity.  The  profile  employed  for  the  space  based  centrifuge  produced 
approximately  -I- 1  G,  at  the  top  of  the  head  and  approximately  -f  3  G^  at  the  feet.  The 
orientation  angles  for  the  hips  and  thigh  were  adjusted  to  match  the  supine  pedalling  posture. 
Figure  S-13  and  Figure  5-14  compare  the  equilibrium  arterial  and  venous  pressures  estimated 
by  the  model  for  the  two  situations.  As  shown,  at  -i- 1  G,  both  the  arterial  and  venous 
pressures  increase  smoothly  below  the  heart  (the  reference  pressure)  and  decrease  smoothly 
above  the  heart.  In  contrast,  the  pressures  in  the  theoretical  space  based  centrifuge  rider 
show  a  tendency  to  plateau  in  the  hip  and  thigh  area  (segments  9  and  10)  because  the 
acceleration  is  transverse  to  those  segments.  The  only  changes  in  the  pressure  are  due  to 
flow  resistances  which  are  small  in  comparison  to  the  gradients  produced  by  acceleration.  In 
addition,  the  pressures  are  higher  below  the  heart  and  lower  above  the  heart  as  would  be 
expected  because  the  acceleration  field  is  changing  in  the  z-axis  direction. 

The  results  of  this  simulation  show  only  very  small  differences  in  pressure  between  the 
between  the  cardiovascular  pressures  produced  in  the  space  based  centrifuge  and  those  seen 
in  the  upright  man  at  -t- 1  G,.  Moreover,  the  effect  of  exercise  by  the  centrifuge  rider  would 
undoubtedly  reduce  the  venous  pressures  via  the  “venous  pump.”  There  is  no  provision  for 
such  a  muscular  pumping  action  in  the  current  v^on  of  the  model,  thus  this  effect  is  not 
apparent  in  the  simulation  comparisons  in  Figure  5-13  and  Figure  5-14. 

Two  additional  simulations  were  computed  to  compare  the  operation  of  the  short  arm 
centrifuge  on  earth  to  its  operation  in  microgravity.  The  same  z-axis  acceleration  field  as 
describ^  above,  was  employed  in  two  simulations:  one  with  0  G,  to  simulate  space  base 
operation  of  the  short  arm  centrifuge,  and  one  with  -f  1  G,  to  simulate  its  operation  on  earth. 
Figure  5-15  and  Figure  5-16  compare  the  steady  state  arterial  and  venous  pressures  estimated 
for  the  two  situations.  As  shown,  the  earth  bas^  operation  and  the  space  based  operation 
produce  virtually  identical  pressure  profiles  above  the  hips.  However,  below  the  hips,  the 
earth  based  profile  results  in  higher  arterial  and  venous  pressures  because  the  pressures  at  the 
hip  s^ment  must  be  higher  to  move  blood  against  the  -i- 1  G,  acceleration  which  is  oriented 
along  the  hip  and  thigh  segments.  The  venous  pressures  are  correspondingly  higher  in  the 
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earth  based  centrifuge  although  the  pressure  gradioit  in  the  venous  segments  below  the  hip  is 
much  higher  than  in  the  space  based  cmitrifuge.  The  comments  r^arding  the  effects  of 
exercise  <»  the  venous  pressures  also  zppXy  to  the  comparison  between  the  space  based  and 
earth  based  profiles.  It  is  likely  that  the  venous  pumping  actimi  (ff  exercise  would  reduce 
venous  pressures  in  both  situatimis  and  the  diffieimces  between  the  two. 

In  summary,  the  cardiovascular  simulations  have  served  to  add  support  to  the  efficacy  of  the 
use  of  the  short  arm  centrifuge  to  approximate  the  steady-state  ca^iovascular  pressure 
profiles  seen  in  an  upright  human  on  earth.  It  tqjpears  feasible  and  desirable  to  extend  the 
Phase  I  model  in  I^ase  n  to  include  the  short  tmm  physiologic  control  and  the  effects  of 
exercise  cm  cardiovascular  flows  and  pressures.  This  will  enable  the  model  to  more 
faithfully  simulate  the  true  response  of  the  cardiovascular  ^stem.  An  enhanced  Phase  n 
cardiovascular  model  could  be  validated  against  earth  based  experimental  data  and  then 
employed  to  predict  the  differences  between  profiles  conducted  on  earth  and  in  microgravity. 
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Figura  6-13.  Equlibrium  Artsrial  PrMSurM 
Upright  1  Qs  V*  Spae*  Batad 
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Vanout  Prattura  [RimHg] 


Figure  5*15.  EquMbrium  Arterial  Preesuree 
Short  Arm  Carttrifuge 
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Appendix  A1 

Inertia  Calculations  for  Pedals  and  Feet 


The  gyroscqnc  moment  produced  by  the  cross-a>upled  motion  of  the  pedal  mechanism  and 
the  centrifuge  is  prc^rtkMud  to  the  inertia  of  the  mass  rotating  with  the  pedals.  Consider  the 
subject  and  pedals  of  Figure  A-1.  The  total  effective  moment  of  inertia  of  this  ^stem 
includes  the  inertia  of  the  pedal  mechanism  as  well  as  the  inertia  of  the  subject’s  feet  and 
pertiaps  part  of  the  lower  1^.  For  purposes  of  our  analysis,  we  will  consider  only 
approximate  masses  for  the  pedals  and  feet,  so  that  the  moment  of  inertia  about  the  pedal 
axis  of  rotatitHi  is: 

=  2-/^+2-/^  .  [Al-1] 

To  compute  the  moment  of  inertia  of  tne  pedals,  assume  each  pedal  and  support  has  a  mass 
of  O.S  1%,  the  effective  radius  of  rotation  is  IS  cm,  and  the  centroidal  inertia  of  the  pedal  is 
negligible.  Thai,  the  inertia  is: 


“  0.0113*»  in*  .  [Al-2] 

The  mass  and  centroidal  inertia  of  the  foot  is  takoi  from  an  anthropometry  source.'  It  is 
assumed  that  the  center  of  mass  of  each  foot  is  located  at  approximately  the  distance  of  the 
pedal,  or  IS  cm.  The  inertia  of  a  foot,  then,  is: 


Ijf  ■  ■  0.0269ii;g*m^  •  [Al-3] 

Finally,  substituting  values  foom  equadons  Al-2  and  Al-3  into  Al-1,  the  approximate 
moment  of  inertia  of  the  rotating  system  is  0.0764  kg*m^.  This  value  could  change 
significantly  if  the  mass  of  the  ped^  mechanism  was  changed,  if  the  crewmembers  wore 
boots,  or  if  the  pedal  arms  were  different  lengths. 
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APPENDIX  B1 

Theoretical  Vesttt)iilar  Response  Program 


Bl.O  Program  Name.  VESTIB.EXE,  for  MS-DOS. 

Bl.l  Purpose.  VESTIB  computes  the  theoretical  vestibular  response  of  a  human  to 

angular  aoceleraticm  and  linear  acceleration  stimuli.  The  vestibular  response 
consists  of  the  otolith  theoretical  afferent  firing  rates  (APR),  semicircular  canal 
afferent  firing  rates  (APR),  and  theoretical  perceived  down  vector.  The 

dynamic  models  for  the  otoliths  and  canals  are  described  in  Chapter  S. 

# 

B1.2  General  Description  of  Program  Flow.  On  execution,  VESTIB  opens  and 

reads  a  data  file  containing  the  x,  y,  and  z  components,  respectively,  of  the 
subject  angular  velocity,  angular  acceleratitm,  and  specific  force.  'Fhe 
program  then  computes  the  incremental  vestibular  response  to  the  stimuli  and 
writes  the  perceiv^  down  vector,  otolith  APR,  and  cmial  APR  to  a  data  file. 

B1.3  Program  Description.  The  file  Uinface.cpp  defines  the  class  TUinface, 

derived  from  the  Turbo  Vision  class  TApplication.  The  Borland  Turbo  Vision 
users  manual  should  be  consulted  for  a  description  of  the  class  hierarchy  and 
function.  The  member  funcdtm  GoVestib  performs  the  reading  and  writing  to 
the  data  files,  and  calls  the  functions  otolithResponse  and  canalResponse  to 
compute  the  re^nse  of  the  oigans  to  the  acceleration  stimuli. 

B1.4  Description  of  Input.  The  vectors  should  aU  be  ^pressed  in  the  head 

coordinate  frame,  with  the  z-axis  pointing  from  head  to  toe,  x-axis  pointing 
out,  and  y-axis  pointing  to  the  right.  The  angular  velocity  should  be  expressed 
in  d^iees/sectmd,  angular  acceleration  should  be  express^  in 
d^iees/seconcP,  and  q)ecific  force,  which  is  the  inei^  acceleration  plus  the 
effect  of  gravity,  should  be  in  units  of  earth’s  gravity  (G).  The  data  is 
expected  in  columns  separated  by  spaces  or  tabs,  and  should  be  in  the 
following  format: 


Column:  Item:  I2niISL 

1  Time  seconds 

2-4  Angular  Velocity  x,y,z  deg/s 

5-7  Angular  Acceleration  x,y,z  deg/s^ 

8-10  Specific  Porce  x,y,z  G 


VESTIB  will  cease  computation  after  the  last  line  of  input  is  read. 
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B1.5  Eaounpk  User  Input  Scsrion.  To  start  the  program,  type  VESTIB  at  the 

DOS  promiK.  The  program  has  menus  for  selecting  tfie  input  file  name  and 
ou^t  file  name  output  file.  Select  run  from  the  menu  to  conduct  die  analysis. 

B1.6  Program  Operation.  If  the  data  file  is  of  the  correct  fiarmat,  the  prc^ram 

will  b^in  computing  the  vestibular  response  at  each  time  It  is  possible 
for  the  user  to  crash  the  program  with  a  bad  input  data  file.  The  most 
commcm  error  is  an  error  in  input  file  format.  The  user  should  ensure  that  the 
input  is  in  the  correct  column  format.  Check  the  file  format  if  a  read  error 
devdops. 

B1.7  Output.  The  program  writes  a  data  file  of  time  in  seconds  and  perceived 

down,  otolith  APR,  and  canal  APR  components  sqiarated  by  places. 

B1.8  Source  Program  Listing. 

// - 

//  Prognm:  itiii£Me.qip 

//  Prcgect:  Shmt  Am  Centrifuge,  SBIR  Rune  I 

//  Date  Cfcated:  Aug.  12.  1993 

II 

II  Notes:  This  is  a  Tiubo  Visioa  user  ioterfiKe 

//  for  the  vestihular  reqmnae  nibroutmes, 

//  (ie.  vestib.qip,  otoUfo.q)ph  canal.qip) 

// - 

//  define  compiler  TUibo  Vision  variables. 

fdefine  UsesJT^iplication 

adefine  U8es_TEveatQueoe 

fdefine  Uses_TEvent 

fdefine  Uses_T^>plication 

fd^ne  Uses_TK^ 

fdefine  Uses_TRect 

fdefine  UsesJTMenu 

fdefine  UsesJTMeauBox 

fdefine  Use8_TMenoBar 

fdefine  Use8_TMenuItem 

fdefine  UsesJTSubMenu 

fdefine  Use6_TStatutLine 

fdefine  Uses_TStatnaDef 

fdefine  Uses^^TStatnaltam 

fdefine  UsesJTStaticText 

fdefine  UsesJTSItem 

fdefine  UsesJTRadioButtons 

fdefine  Usea_TDeskTop 

fdefine  Use8_TDialog 

fdefine  Uses_TButtoa 

fdefine  UsesJTObiect 

fdefine  Usee^TFileDialog 
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fddfaM  Uaat  TIa|NitLine 
Mafia*  UMc.TLdid 
Mafiaa  Uaea_TBattaa 

//  iachade  Boriaad  and  cuatom  haadar  files 
findude  <tv,h> 
fiaeliida  <atdiali> 
fiachide  <stdUb.h> 
fiadiida  <fidiaaaLh> 

Machide  <atfiag.h> 
fiachide  <kaaBai|>.h> 
fiaclude  <praoeaa.h> 

//asstga  coBonaad  valuaa 
ooaat  iat  caiCktlaputFile  *  1000; 
coast  iat  coiGetOiiqiNitFile  «  1001; 
coast  iat  catRunSiaailatioB  «  1003; 
coast  iat  cmTiaieStapDialog  *  1004; 
coast  iat  ciaOveiWriteDialog  «  lOOS; 

//Global  variaUas 
ifttiaaai  iafile; 
olteaam  ootfila; 

//Make  a  DaltaT  straetaie  fiir  letriaval  from  dialog  box 
stfuct  DaltaT 
{ 

char  dt[10]; 

}; 


DaltaT  *dtinie; 

douUa  dt;  //tiaia  slap  —  will  be  striag  copied  from  dtiine 


class  TUiafine  :  public  T^iplicatioa 

< 

pablie: 

TUtalaoaO: 

static  TDeakTop*  mitDadGbpCrRact  r); 
static  TMaanBi^  iaitMaaaBaii<TRcct  r); 
static  TStatasI  iaa*  iaitStatoaLiaa(TRact  r); 
virtual  void  haadteEvaatCTEvaatA  eveat); 
iat  OveiWritaDialQtfdiar  fileNanie(MAXPATH]); 
void  Gedapa^laO: 

void  GetOu^pafniaO; 
void  OoVaafibO; 
void  OaiTiiBaSlepO; 
void  SetDafiailfnaiaO; 
void  SsHlaiaO: 

>; 
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Moidiid*  *vnidh.cpp  * 
ftBchida  ’caaal.cpp* 

Ifiadads  *ololilh.Gpp' 

TUia&o*::TUuiAc«0  : 

TPlr(ybiit(  &TUiiiliMe::iiiitSt«tU8Liiie. 
ATUiiifiioe::iiutM«iniBar, 
ATUinfiue:  itoitOMkTop 
) 

{ 

SetDefitoItTinieO: 

> 

void  TUiiifine::SetOefinihTuiiBO 

{ 

■trc{>y(dtiiiiB>>dc,  *0.*); 

> 


ott  TUiiifiKe::Ov«rWritaOtalog(clur  fileN«ine(MAXPATH]) 

{ 

char  bo£![80]; 
iflt  value; 

atrepyOaiir,  fileName): 
tIttaiCbaB,  *  eouital*); 
int  k«atrifla(baff)/2  +  10; 

TDtalog*  d«  new  lI>ielog(TR«ct(40-k.  S.  40>t>k.  13). 

buff); 

d->iiiaiatt(iiew  TBiittao(TRect(k-12, 4.  k-2,  6). 

"-Y-ee",  cmYee,  bfNonnil)); 

TBuOoa*  buttoo^new  TButtoii(TRec((k+2.  4,  k-<- 12,  6), 

*— N— o*.  cmNo,  bfDe&ult); 

d*  >  inaeftONitlDn); 

TView*  b  ■  new  TlnputLine(TRect(k-f  13, 2,  k+ 13,  3),  0); 
d'>iitnrt(b); 

d'>iiia«t(new  TLabei(TRect(k-S,  2,  k+12.  3). 
•Ovarunrife?",  b)); 

battoii->MiectO: 

nriK)rt  oootrol  «  deekTo|»'>execView(d); 
if  (cootiol  »  ■>  cmYee)  ^ue  >■  1; 
else  value  «  0; 

deatfoyCiQ; 
latnm  value; 


> 


TDodcTop*  TUiafroe::iiiitDttmDp(TR«c(  r) 

{ 

//  OvmidM  definiU  desktop  to  include  a  status  bar  at  the  bottom. 

r.a.y++; 

r.b.y~; 

ratun  new  TDedcTop(r): 

} 


TStatusLtne*  TUinfrce::uiitStatttsLine(TRect  r) 

{ 

//  This  fimctiaa  creates  die  status  bar  for  the  qipUcatian. 
r.a.y  «■  r.b.y  - 1; 
return  new  TStatual  .meCr, 

"tanw  TStatusDef(p,  QxFFFF)  -f 
*newTStatuaItein(*~Alt-X~  Exit",  kbAltX,  cmQiiit) 

): 

} 

void  TUinfooe::GetliiptttFileO 

{ 

//  This  fonctka  opens  a  file  dialog  box  and  opens  a  selected  file 
TFileDialog*  d  »  (TFileDialog*)  valid>^ew  ( 
new  TFileDialog(**.**.  'Open*.  "  Input  file:',  fiiOpenBiittoo.  100)); 
diar  fileNaine[MAXPATH]; 

deskTop-  >  execView(d); 

d->geffileNaine(fileNainB);  H  get  file  name 

infile.opeo(fileNanie); 

destroyed); 

} 

void  TUinfoceiiGetOu^ntFileO  //procedure  for  getting  oo^jot  file  name 

{ 

//  This  fnnetian  opens  a  file  dialog  box  and  opens  a  selected  file 
int  value  «  0; 
while  (lvalue) 

{ 

TFileDialog*  d  »  (TFileDialog*)  validView  ( 
new  TFileDialogC*  *'.  'Open*.  '  Output  file:  fdOpenButton,  100)); 
char  fileNaineCMAXPATH]: 

deskTop-  >execView(d); 

d-  >  getFileNaine(fild<aine);  //  get  file  name 

if  (aocesaffileName,  0)  — —  0)  //  if  file  exists 

{ 

value  «  Ov«rWiitd>ialog(fileName); 
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if  (vihw)  oadU*.opaii(fileN«iii0): 

) 

{ 

valiw  m  1; 

oiitfito.opan(fH«NMne); 

> 

deMnyCd); 

} 


} 


void  TUtii£Ke::GflfniiieStepO  //praoednio  for  gottinf  tune  itap 

{ 


TDtaiog  •  new  TDielog(  TRect(  15,  S,  55.  18),  'Enter  Time  Step*); 
tf(p4) 

{ 


pd->tnHct(  new  TBiittoii(  TRect(  15. 10.  25. 12).  cmOK, 

bfEMult)): 

pd->ioeert(  new  TButt«i(  TRecl(  28.  10.  38.  12).  ‘~C~ancel*. 

en^nod.  bMonnel)); 

“n^ew  ^  >  new  Tln|mtline(  TRect(15,  6.  25.  7).  10); 
pd->ineert(b); 

pd->insBft(  new  TLabei(  T1lect(8,  4,  32,  5).  'Enter  Time  Stq>  (tec):  ',  b)) 
pd>  >  MtDelddtbnB); 


nriioft  oontnd  >■  dedn'op>>eKecViewQxl); 
if  (oontrol  !-i  cmCinoel) 

< 

pd- >  getOeli(dtime): 

SetTimeO; 

} 


deetfoyOid); 

} 

void  TUinfiMe::SelTinieO 
//  get  time  step  from  diilog  box  end  oonvert  string 
< 

dt  »  stof((clier^  dlime->dt); 

} 

void  TUinfcce;  ;henilleEveot(TEvent8t  event) 

< 

//  bsniBe  event  routine.  Responds  to  mein  menu  sdectkms. 
uAort  newMode; 

TApfdknlion:  :hsndleEveiit(event); 
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if  (0v«twtet  !>  evComiMod)  ramra: 


wntefa  (ewur  mwMfe.comiMmd) 

< 

caw  caiOatlapatFik:  //  Open  a  file  for  input 

GetbpolFil^; 
hfwk; 

caw  cnGatOutpiitFila:  //  Open  a  file  for  output 

QelOulpiitFil^; 
biaak; 

caw  cmTim^SlepDialog:  II  Open  a  dialog  box  for  time  step 

GefnineStepO; 

bnak; 

caw  cmRunSinailatioo: 

GoVe«tbO: 

bnak; 

} 

dea£vent(eveBt): 

> 

TMenuBaf*  TUiiifooe::iiiitMeaiiBaf(TRect  r) 

r.b.y  ■  r.a.y  +  1; 

fetum  new  TMeanBaKr. 

*new  TSidiMeaii(‘-F~ile*.  kbAltF) 

ThfeauIleiBf*  '•I'^'iqNit  file*.  cmGetlnputFile. 
kbF3.  bcNoCootaxt.  *F3*)  -f 
TMeouIleaif*  '•0~u4mt  file”,  cmGetOutputFile, 
kbF4.  hcNbCoBleoa.  *F4’) 

^taew  IMeBuItamC”  •>'T -'iine  step*.  cmTimeStepDialog, 
kbFS.  bcNoConiaxt.  'FS*) 

*B0W  TMeauItain(*  ~R‘*'an  auaulatioo*.  cmRunSimulatioo, 
UM,  hcNoConiext,  *F6')): 

} 

mtinaiiiO 

{ 

TUin&ce  Uscrintarface; 

UaeriiitBifooe.ranO: 

ntnniO; 

} 

// - - 

//  Frogtam;  veatib.cpp 

//  Froject:  Short  Am  Ceatriftige,  SBIR  Phaw  I 

//  Date  Created:  Aug.  12.  1993 

// 


93 


//NoIm: 

// 

// - 


This  it  the  nsm  vitibulsr  rMpoose  functioo 
Ihst  calls  Ifas  ololidi  sad  canal  fimctioiis. 


Machida  <teeaakh> 

Maclude  <iowh> 

Mncfaida  <ioiHniip.h> 
ffaKlnda  *v8clor.h* 
fmchida  'aaalrizJi* 

Vector  otoliftRe^wnae(doul>la.  Vector,  VactorA): 

Vector  csnslResponaB(double.  Vector); 

void  TUiBAoa::GoVeatibO 

{ 

Vector  sf.  a^dia,  oiiiets.  ceoAfr,  otoAfr.  down; 

doidile  ; 

dooUa  a.b.c.d.a.f.gji.i: 

aiitlile.piecuiQo(4); 

oatfila.eetfl$oa::ecieBtiiic^ios::floatfiald): 
oatlila.eetf(ios:  :laft.ios:  ;adjiistiiald); 

iatooaat  0; 
iatloQp  »0; 

while  (!inlila.eofO) 

{ 

00001+ H-; 

iaflla  >  >  tnaa  >>a'>>b>>c>>d>>e>>f>>g>>h>>i; 
oiiiaiB.set(a.h,c); 
alplis.aet(d,e.f); 
af.aet(g,h,i); 
if  (ooont  <■  ■■  1) 
whik  (loop  <  60.0/dt) 

{ 

loop++; 

alp^ael(O,O.(0; 

OtoAfr  «■  otolithReyiee(dt,  ef,  down); 
cfsiAfr  «  caBslReqxxiaeC^  alpha); 

} 

else 

{ 

otoAfr  *  otcdifliReepooee(dt.  sf,  down); 
canAfr  *  canalReqgioiise(dt,  a^iha); 

} 

oolfile  <  <  aeiw(12)  <  <  tnna 

<  <  aetw<12)  <  <  down.zO  <  <  setw(12)  <  <  down.yO  <  <  aetw(12)  <  <  down.zO 

<  <  aecw(12)  <  <  otoAfr.xO  <  <  setw(l2)  <  <  otoAfr.yO  <  <  setw(12)  <  <  otoAfr.zO 
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<  <  m(w(12)  <  <  caaAfr.xO  <  <  ietw(12)  <  <  canAfr.yO  <  <  ■e*w(12)  <  <  caoAfr.zO 
<<  «ndl; 


} 

} 

// - 

//  Prognnn:  otoiilh.q)p 

//  PrqfMt:  Short  Aim  Ceotrifoge.  SBIR  Pham  I 

//  Drto  Cnrtod:  Aug.  12.  1993 

It 

//  NoIm:  This  is  the  otolith  leqKnse  function. 

// - 

ginclude  *vector.h* 
finclude  "mstrix.h* 
fmclude  <msth.h> 

Vector  ololitiiRespaaae(dooble  dt.  Vector  sf,  Vector  Adown) 

{ 

/* - 

Variable  and  parameter  H^dnitiow 

dt  «  time  step  (sec) 

sf  <■  qwctfic  ft»oe  vector  in  head  coordinates  (G) 
sfo  •  qwcific  fbroe  vector  in  otolidi  coordinates 
theta  »  pitdi  an^  of  otolidu  (assumed  25  degrees) 

RM_ho  ■>  lotatioa  matrix  fitom  head  to  otolith  coordiiutes 

gain  ■■  otolith  dynamics  gain  constant 

tea  »  specific  fioioe  transducer  time  constant  (sec) 

teb  «■  afferent  processing  time  constant  (sec) 

afir  «  afferent  firing  rate  vector  (impulaes/sec) 

down  »  down  estimate  vector 

Model  and  parameter  values  taken  fimn: 

Forastrom  KS,  Doty  J,  CarduUo  FM.  Using  Human  Motion  Perception 
Models  to  Optimim  Flight  Simulator  Algoritiuns  (AIAA  No.  85-1743) 

Saccular  non-linearity  included  as  described  in: 

Borah  J,  Young  LR,  Curry  RE.  Sensmy  Mechanism  Modelling.  AFHRL-TR-77-70. 
USAF  Human  Raaourcee  Laboratory  (Oct  1977). 

The  saccular  non^mearity  is  applied  to  the  specific  force  input  after 
passing  tiuough  the  dynamics  transfer  function.  Specific  force  is  equal  to 
tiw  inertial  acceleration  of  die  otolidi  in  otolidi  coordinates. 

No  diredioid  was  included  because  of  the  non-continuous  output. 
- */ 


Vector  afr,  sfo,  afr_h,  afrjp; 


//  transpose  of  original  matrix 


atatk  Vector  afbl.  afirl; 

Matrix  RM  oh.  RM  ho; 
oooat  double  fd  -  37.296; 
const  doable  ttaete  >  2S.0/td; 
const  double  gsin  •  9.0.  tee  »  3.0,  Icb  »  10.0; 

RM_ho  «  aetRMatrix(0,  theta,  0): 

RMjob  *•  tieas(RM_Iio): 

//  rotide  tpedllc  fbcoe  input  to  otiididi  coordinate  ftame 
sfo  -  RM.bonf; 

//  define  constants  for  ololitfa  response  to  specific  force  input 
doable  sO  «  dt  +  2.0*lca; 
doable  al  <■  dt  -  2.0*lca; 
double  bO  «  gain*tca*<dt  -l-  2.0*tcb); 
doable  bl  *  gnin*tea*(dt  -  2.0*tcb): 
air  ■  (bl*sfol  +  bO*^  -  altafirl)/aO: 

//  save  variables  for  next  call 
sfol  »  sfo; 
afrl  ■■  afir; 

//  apply  observed  noiKlinearity  of  saccular  otolidi  to  afferent  firing 
//  rate  in  otolidi  coordinate  firtune  to  create  perceived  air.  Perceived 
//  afr  permits  oomputatioa  of  perceived  doom  vector, 
afr j>  «  afr; 

if(afr.20  >  <4S.0«>cos(theta)) 
ifrj>.aet_2('0.4*43*coa(thM)  +  0.6*afr.z0): 
else 

//  compute  the  directian  of  die  down  estimate  by  compiding  its  normalized 
//  component  vectors  (in  otolidi  coordinates).  Rotate  the  down  estimate 
//  bade  to  head  cooidinatas. 
if  (mr«(afr_p)  >  0.0) 

down  «  •1.0*RM_oh*<afr_p/mag(afr_p));  //  unit  afr  vector 

else 

down.set(0,0,0); 

//  rotate  the  aflerent  firing  rates  back  to  the  bead  frame. 
afr_h  -  RM_oh*afr; 

//  return  afrji; 
return  afr  h; 

} 

// - 

//  Program:  canaLcpp 

//  Prcyect:  Sbrnt  Arm  Centifuge.  SBIR  Phase  I 

//  Date  Created:  Aug.  12.  1993 


II 

//  Notes:  This  is  the  canal  response  function. 

II - 


include  ‘vector.h* 

#iiicliide  *inairix.h* 

Mncloda  <iBatfa.h> 

Vector  canalRespcioae(double  dt,  Vector  alpha) 

{ 

/♦ - 

Variable  and  paramnter  definitions 

dt  «  tune  step  (aec) 

alpha  angular  acceleration  (degs/sec''2) 
tlo  »  canal  long  time  constant  vector 
tad  «  canal  adaptation  tine  constant  vector 
tie  ~  canal  lead  operator  time  constant  vector 
afr  -•  afferent  firing  rate  vector  (impulses/sec) 

Angular  acceleration  in  the  head  coordinate  system.  The  semicircular  canals 
are  approximated  to  be  in  dw  head  coordinate  system. 

No  threshold  was  included  because  of  the  iion-continuous  output.  Instead, 
we  implemented  die  vestibular  dueshold  unit  coocqM. 


*1 


Vector  asom.  bsum,  afir; 

Vector  tlo; 

Vector  aO,  al,  a2,  bO,  bl,  b2; 
static  Vector  afirl,  afi2,  alphal,  aliduiZ; 
const  doutde  ted  »  30.0,  tie  <■  0.01; 
inti,  k; 

daaet(6.1.  5.3,  10.2); 

II  calculate  the  numerator  and  denominator  of  the  weighting  constants 

II 

II  b  '->  numeialor  coefficients,  a  ->  denominator  coefficients 
II 

Vector  dt  temp(dt,dt,dt);  //  vectorize  quantity  for  vector  (q)erations 

bO  -  2.(]^*(dt  +  ^0<tle)*do; 

bl  -  •8.0*tad*de*tlo; 

b2  *  2.0«tad*(2.0*tle  •  dt)*tk>; 

aO  -  (dt  +  2.0*tad)*(dt_teiiq>  +  2,0<llo); 

al  —  2.0^'*dt_tamp  -  8.0*tad*llo; 

a2  «  (dt  <  2.0*^)^[dt_tamp  -  2.0^o); 
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//  compute  fifing  late  compooMite 


afluiii.ie(_x(«l.xO*efrl«xO  **'  a2.xO*efir2.xO): 
■mm.«it_y(«l.yO*iifrl.yO  +  ■2.yO**ft2*yO); 
asiiiii.flet  z(al.zO*^l-xO  a2.z0*«fi2  >0); 
iMum.aerx(b0.xO*eipiia.xO  +  bl.xO*elpli»l.xO  +  b2.xO*»lpta2.xO); 
bwm.tetIy^.yO*»»pb*-yO  +  bl.yO**lpbel.yO  +  b2.yO*«Jphii2.yO); 
bMm.aet_z(b0.zO*«Ipbe-zO  +  bl.aO**>!*el*0  +  b2.z0*iJplM2.20); 
afr.aet_xr(binim.xO  *  asuni.xO)/a0.xO): 
afr.Mry((bMffl.yO  -  munuyOVeO-yO): 
afir.8et_z((banin.x0  -  aattm.zO)/«0<iO): 

//  save  <dd  values 
afir2  -afrl; 
afirl  »  air; 
a4iba2  -  alphal; 
alfdial  «  alpha; 


return  afr; 

} 
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APPENDIX  B2 

Coitriftige  and  Shuttle  Simulation  Prognun 


B2.0  Prognun  Name.  ACCELS.EXE  for  MS-DOS. 

K.l  Purpose.  ACCELS  simulates  the  dynamics  of  a  short  radius  centrifuge 

mounted  cm  the  space  shuttle.  The  output  can  consist  of  linear  or  angular 
positions,  velocities,  and  accelerations,  or  dynamic  forces  and  moments  acting 
cm  the  centrifii^  or  shuttle.  The  user  is  able  to  select  the  size,  position, 
number,  and  gender  of  the  centrifuge  riders,  as  well  as  input  simulation 
parameters  and  shuttle  and  centrifuge  dimensions  and  mass  properties. 

B2.2  General  Descr^ition  of  Program  Flow.  On  ececudon,  the  user  is  presented 

widi  an  interface  for  selecting  simulation,  shuttle,  centrifuge,  rider  parameters, 
and  the  oufout  file  name  and  output  variables.  The  program  can  be  run  with 
defoult  values,  however  at  least  one  rider  must  be  selected.  When  the 
selecticms  have  been  made,  activating  the  Simulate  button  initiates  the 
simulaticm. 

B2.3  Program  Description.  The  file  Ac(^ls.C|.p  defines  the  class  Centrifuge, 

derived  firom  the  Turbo  Vision  class  TApplication.  The  Borland  Turbo  Vision 
users  manual  should  be  consulted  for  a  descripdcm  of  the  class  hierarchy  and 
foncdcm.  Function  staitSimO  performs  the  actual  Emulation  and  data 
recording  to  the  output  file. 

B2.4  Description  of  Input.  There  is  no  input  file  required  for  ACCELS.  The  user 

should  enter  the  output  file  name,  output  file  variables,  shutde  mass  and  inertia 
values,  simulation  parameters,  rider  positions  and  description,  and  centrifuge 
inertia  and  dimensions  into  the  j^ropriate  input  boxes.  The  values  in  each 
inimt  box  can  be  reset  to  the  default  values  with  the  Default  buttons.  The 
simulation  can  be  initiated  with  the  Simulate  button. 

B2.5  Example  User  Input  Session.  To  start  the  program,  type  ACCELS  at  the 

DOS  promirt.  Using  the  mouse  or  keyboard  Alt-F  keys,  select  the  File  menu 
selectimi.  Select  New  from  the  submenus,  to  open  a  new  simulation 
worksheet.  Now,  individually  select  the  parameters  of  the  simulation,  with  the 
following  directions: 

•  Select  output  file  name:  Using  the  mouse  or  keyboard,  select  the 
name  of  the  output  file  to  store  the  data.  If  the  file  is  a  new  one, 
simply  type  in  the  name  of  the  file.  If  the  file  exists,  the  program  will 
ask  you  to  confirm  whether  you  want  to  replace  the  file. 
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B2.6 


•  Shuttk  mass  and  inertia:  The  default  shuttle  mass  and  inertia  matrix 
can  be  changed  if  (tesired. 

•  Sinmlation  time  and  acceleration:  The  duration  of  the  simulaticm  is 
specified  by  the  first  two  values.  The  centrifuge  is  initially  at  rest. 

The  duration  of  the  first  phase  represents  the  time  to  accelerate  to  a 
constant  G  and  remain  at  that  acceleration.  After  the  first  {diase  of  the 
simulation,  die  centrifuge  will  decelerate  to  rest  and  remain  at  rest  until 
the  total  simulation  time  has  elapsed.  This  feature  allows  the  long  term 
effects  of  the  centrifuge  motion  to  be  assessed.  The  time  interval  can 
be  changed  if  desired.  The  maximum  acceleration  for  the  simulation 
rqnesents  die  acceleration  in  G*s  at  the  location  of  subject  #1  center  of 
mass.  The  acceleration  onset  and  tangential  acceleratimi  limit  for  the 
centrifuge  can  also  be  adjusted. 

•  Rida*  parameters:  The  occupancy,  percentile,  gender,  and  head 
posititm  of  up  to  four  riders  can  be  specified.  The  first  position  must 
be  occupied  in  order  for  the  program  to  work  properly.  Other  riders 
can  be  ^ded  as  desired,  with  position  3  being  opposite  position  1,  and 
position  2  opposite  position  4.  The  program  will  automatically  use  the 
appropriate  mass,  inertia,  and  center  of  mass  values  for  die  riders 
according  tt>  the  gender  and  percentile  selected.  The  position  of  the 
rider  is  considered  to  be  from  the  center  of  the  centrifuge  to  the  top  of 
the  head. 

•  Coitriftige  inertia  and  diroensioiis:  The  inertia  of  the  centrifuge 
itself,  and  the  posititm  of  the  centa  of  the  centrifuge  widi  respect  to  die 
shutde  center  of  mass  can  be  edited  in  this  dialog  box. 

•  Output  Variables:  Check  the  boxes  of  the  variables  to  be  written  to 
the  output  file.  The  variables  are  all  vectors,  and  all  three  components 
of  eadi  vector  will  be  saved.  Time  is  automatically  recorded  in  the 
first  column  of  the  ou^ut  file. 

Once  all  the  values  have  been  selected  (remember  to  specify  at  least  the  first 
crewmember  position  as  occupied  and  to  select  an  output  file  name),  the 
Simulate  button  can  be  selected  to  run  the  simulation. 

Flrogram  Opoation.  When  the  Simulate  button  is  activated,  ACCELS  will 
perform  the  simulation  and  print  results  to  the  data  file.  When  ACCELS  is 
finished,  a  dialog  box  will  appear  announcing  the  completion.  If  the  program 
does  n<H  opoate,  the  most  litely  causes  for  the  error  is  that  the  crewmember 
pontion  #1  was  not  set  to  occupied,  or  no  oufout  file  name  was  selected. 
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B2.7  Output.  The  program  writes  a  data  file  of  time  in  seconds  and  the  selected 

ou^t  variables  to  the  output  file. 


B2.8  Source  Program  Listing. 


// - 

//  Progma:  Acceb.qip 

//  Pipiect:  Short  Ann  Ceotrifiige,  SBIR  Phase  I 

//  Date  Ciealed:  May  21.  1993 

// 


//Notes: 

II 

II 

II - 


This  prognun  uses  a  Turbo  Vision  interfue  and 
compotee  the  kinematics  and  dynamics  of  a  short 
radius  centrifuge  operating  on  die  qiace  diutde. 


//  define  Turbo  ^^skm  compiler  variaUea. 

idefine  UaesjrEventQiieue 

fdefine  UaaaJTEveiit 

fidefineUaes  TApfdicadoa 

idefine  Uaaa'TKeys 

Mefine  UaM'~TRflet 

Mefine  Uaee~TMean 

idefine  UaesJTMennBax 

idefine  Uaee_TMennBar 

idefiliie  Uees  TMemdtem 

Mefine  Uaee~TSid>Memi 

Mefine  Uses  TStatnsLine 

Mefine  Uaee~TStatuaDef 

Mefine  UseelTSts..isItem 

Mefine  Ueee_TStaticTegtt 

Mefine  UeeeJTSIlem 

Mefine  UseeJTRadioBattons 

Mefine  Usee  TOiedcBoxes 

Mefine  UeesjlDeekTop 

Mefine  UsesJTDialog 

Mefine  Uees  TButtoo 

Mefine  Uaee’rOI^ 

MefineUsee  TFileDialog 
MefineUsee  TInpiitLine 
Mefine  UeeeJTLabel 

II  inclade  Boriand  and  cusUna  header  files 
Michide  <tv.h> 
iineliide  *matrix.h” 

Mncinde  *vector.h” 
iinclode  <stdiah> 
iinclnde  <stidlibLh> 
iincfaide  <te«am.h> 
iinehide  <atriBg.h> 

Mnchide  <ioinBnip.h> 
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//  iochido  oHmt  code 

//  anigB  conunand  valnM,  me  vehm  ovw  1000  to  alwqrs  be  vinUe  to  Ttnbo  >%iaii 

camt  ist  onNew  ■■  1000; 

cout  iot  onHelpAbom  •  1001; 

oomt  iot  cmStertSim  «■  1002; 

cout  int  cmRefitedi  »  1003; 

cout  int  cmFito  *  1004; 

cout  int  cmShuttle  «  lOOS; 

cout  int  ctnUme  >■  1006; 

cout  int  cmSulgect  »  1007; 

cout  int  cmCeotiifiige  «■  1008; 

cout  int  cmOutpotVen  «  1009; 

//■■— . ■■■■■ . —  ^obal  variablM - 

ofttfeem  fl; 

stnict  SimOata 

( 

char  eadTimelClO]; 
char  u(mnie2(10j; 
char  dt(10]; 
diar  inaxO[10); 
diar  onaetG(10]; 
diar  inaxTanG[10]: 

} 

struct  ShuttiePata 

{ 

diar  nau(10]; 
charlxx(10];  char 
char  Iyx[10];  char 
char  Izx(10];  char 
}  dnittleData; 

stnict  Subfectl^rta  //  sulgect  data  ftom  dialog  boxw 

{ 

stnict  Suloect 

{ 

mhoit  occiqited; 
uhoft  percent; 
odiortgeaden 
char  positiaii[10); 

}  solgectData; 


//  oo^putfile 

//  siinulati<»  data  from  dialog  boxu 

//  end  of  first  simulation  phase 
//  end  of  total  sinnilatioo 


//  diuttle  data  from  dialog  boxu 


Ixy(10];  charlxz(10]; 
Iyy(10];  charlystioj; 
b^lO];  diarlzz(10]; 


stnict  Cfi^eData  //  short  arm  centrifuge  from  dialog  boxu 

{ 

dmr  QIO]; 
char  0001(10]; 
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}  eftifsData; 


■Ifwct  Oitt|NttDitB  H  variables  to  output  file 

{ 

mlioit  dwdcBoKi 
}  ou^rntData; 


double  aadnmal: 
doiMe  awminaZ; 
double  dt; 
dotMemaxO; 
doidtie  ooaelO; 
double  uaxTauG; 

itfuct  auittle 

{ 

double  oian; 
Matrix  I: 

}  aliuttle; 

struct  Peraon 

{ 

uriioct  oociqpied; 
double  mass; 
double  oom; 
doiddetoh; 
double  I; 

}pt41; 

struct  Cfiige 

{ 

double  I; 
doiddecom; 

}  cfiige; 


//  end  stmulattoo  ^lase  1 
//  end  total  sunulatioo 
II  siiniilatiao  time  step 

U  maiiwmm  acceleratitm  in  G  at  subject  #1  c.o.m. 
//  accdeiatioD  onset  in  G/sec 
//  tnMiwwim  tangential  accdeiation  in  G 


//  0  if  person  not  on  centrifuge,  1  if  he  is 

//  center  of  mass  distance  from  top  of  head  (cm) 
//  centrifuge  to  top  of  head  distance  (cm) 
ft  kg-m'^ 


//  centrifuge  inertia  and  center  of  mass  relative 
//  to  space  shuttle  center  of  mass 


// - User  interfiKe - 

class  Centrifuge  :  puUm  TApfdicatiaa 

{ 

//  Define  BRC  qi|dication  class  Centrifuge, 
private: 

puldic: 

CentrifiigeO: 

static  TDeskTop*  iaitDeakTop(TRect  r); 
static  TMenuBar*  initMeiinBar(TRect  r); 
static  TStatnsLine*  initStatusLineCniect  r); 
virtual  liaiidleEvent(TEvent&  event); 
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void  OfMoFikO: 
void  amrSiinO: 
ink  dMckPumiO: 
void  stutSioiO: 
void  se^toiBmuiiiO; 

void  MiSiiBftniiid>ftO: 
void  aetSIntftleRmiiiiO: 
void  MtShuttbRuainsDftO: 
void  aciSidgecAaaniiO: 
void  MtSnlgoetftnuiiiDftO: 
void  MtClbgoPmiBiO: 
void  MtCftigenmniDftO: 
void  flotectOa^NitO: 
void  heiiiAboiitO: 
sunFinidiedO; 

}; 

Ceotriftige::CeiitrifugeO :  TPiogIiut(ftCeiitrifiife::iiiitStatttsLiiw. 

ACealrifttce:  tinitMenuBar, 
ACentrifiige:  tinitDedclbp) 

{ 

//  Coutnictor  diqilqrt  'about*  box  at  startup. 

TEvent  event; 

//  Set  deftuh  values. 

•QtSiniBuaaMDfkO: 

setSbattleftnaaaDftQ; 

setStdigecAiBaisDfkO; 

aetCftif^Biaind>fkO: 

//  Diaphy  'about*  box. 

event,  wt^  •  evCoannand; 

event  in«iate.coniiiiaiid  —  cmHelpAbout; 

patEvent(event); 

} 

void  Ceatrifnfe::lieipAboutO 

{ 

//  Tbis  fnnctiao  displays  staitiq)  info. 

TDialog*d  «  (TDialog*) validView( 
new  TDialos(TRiect(20,S,60,lS).  'Short  Ann  Centrifuge')); 

if  (!d)  return; 

d>>iiiaett(new  TStatieText(TRect(l,  1,39,7), 

*\nV003Sliott  Arm  Centrifuge  Software* 

*\n\003ffiodynamic  Research  Corporatton* 
'\n\0(»Naveaiber.  1993*)); 

d->inaett(aew  TRntton(TRect(14,7,26,9),  *OK*,  cmOK,  bfDefault)); 

deskTop-  >  execView(d); 

destroyed); 

} 
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void  Cadrifti|e::iimFinidiedO 

{ 

//  This  ftmetioo  diqpiqw  a  siiniilatioa  finished  message. 
TDtalQg*d  -  (TDialof*)  valid>^ew( 
new  TDulog(11lect(20,S.60.15).  "Message  Box*)); 


if  (!d)  fcinra: 

d->iiiaeft(iieiw  TStalicText(TRect(  1.1. 39,7  ), 

*\n\003The  Sinnlatkii  is  Complele*)): 
d->iBsert(Bgw  TVatloa(TRect( 14.7,26.9),  *OK*.  cmOK,  bfDefinilt)); 
dedcTop-  >  execView(d); 
dwrtioyCd); 

} 

void  CeBtriAife::haiidleEveot(TEveat&  event) 

{ 

//  Ceolrifiife  handle  event  routiiie.  Responds  to  main  menu  selections, 
usfaost  newMode; 

T^iplicatiaii:  :haodleEvent(event); 

if  (ev«Bt.vdiat !«  evCommand)  ntum; 

switdi  (eveiitmessage.c<Mnmand) 

{ 

case  cinNew:  //  Open  new  simulation  sheet 

newSimO: 
break; 

case  cniHelpAbont:  //  Displi^  hdp  about  box 

he4»AboQtO; 
break; 
definlt: 
break; 

} 

cleaiEvent(eveat); 

} 

TMenuBar*  Centrifuge:  :imtMeiniBat(TRect  r) 

{ 

//  This  function  creates  the  MeauBar  for  the  q>plication. 
r.b.y  »■  f.a.y  +  1; 
return  new  TMennBar(r, 

*new  TSiiliMM»(*~F~ile'.  kbAltF)  + 

*IHBW  TMeBBiII(^''~N>'ew*,  cmNew,  kbAltN,  hcNoContext,  ’Alt-N”)  + 
newlineO  + 

*new  TMeiiuItem(*E~x~it*.  cmQuit,  kbAltX,  hcNoContext,  "Alt-X") 

); 


TDedtTop*  Centrifuge:  :initDedcTop(TRect  r) 

{ 
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//  OvwridM  definilt  dMktop  to  incliida  a  status  bar  at  the  bottom. 

r.a.y++; 

r.b.y--; 

letum  new  TDeskTofKr): 

} 

TStatusLioe*  Centrifuge:  :iiutStatuaLiiie(TRect  r) 

{ 

//  This  function  oeatea  the  status  bar  for  the  application. 
r.a.y  -  r.b.y  -  1; 
letum  new  TStatusLinefr, 

*nefw  TStatusDefl[0,  OxFFFF)  -f 

*new  TStatttsItam(”~Alt-X~  Exit*.  kbAltX,  cmQuit) 

); 


clast  TNewDialog  :  public  TDialog 

{ 

//  Derived  class  for  a  new  dialog  box  that  can  open  odier  dialog  boxes. 
puUk: 

TNewDialog(TRect&,  char*):  //  oew  constructor 

void  haadIeEvent(TEveot&);  //  new  handleEvent  loatme 

virtual  Botdean  valid(ushott): 

}; 


TNewDialog:  :TNewDialog(TRect&  r,  char*  title) : 

TDialogCr,  title), 

TWindowbiitC&TNewDialog:  :8iitFtame) 

{  //  Constructor  derived  from  TDialog  constructor. 

> 

void  TNewDialog:  :haadleEvent(TEvent&  event) 

{ 

//  New  dialog  box  hendleEvent  routine. 

TDialog:  :handl^vent(event);  //  derived  from  TDialog  handleEvent 

if  (event. what  *  ■>  evKeyDown) 

if  (event.kByDown.keyCode  »  »  kbEsc)  //  if  Esc,  caned  firom  dialog  be  . 

{ 

event,  what  »  evCommand; 

event  nieaeage.conunand  »  cmCancel; 

potEvent(event); 

} 

if  (event.what  »  »  evConunand) 

endModd(eveat.message.command);  //  end  modal  state  and  set  command 

clearEvent(event); 

} 

Bodean  TNewDialog:  :vBlid(uslioft  command) 
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{ 

//  New  dialog  box  valid  routiiie  •  Munis  eadModal  command  to  calling  function, 
iffcoaunand  cmCancel) 
retum  Tnie: 
else 

return  TOroiq>::valid(coininaiid);  //  retum  command  value  to  calling  function 


void  Centrifuge:  :newSiiii(void) 

{ 

//  This  functian  diqilays  a  wtwkalieet  for  initializmg  a  sac  sitmihuimi. 

TView*b; 

TNewDialog*  pd  >■  new  TNewDialog  (TRect(l. 1,75,20).  'Short  Arm  Centrifuge  Simulation*); 
iffpd) 

{ 

pd>>iiisett(new  TButton  (TRieet(S0,16,60,18),*  "Stimulate*.  cmStaitSim.  bfNormal)); 
pd->insert(iwwTButton(TRect(63.16,73,18),‘~C~ancer,  cmCancel,  bfDefatilt)); 

pd->iiisert(iiew  TStaticText(TRect(2.2.40.3).”Select  output  file  name:*)); 
pd->iiisert(iiew  TButton  (TRect(S0,2,60,4), 'Select*,  cmFtie,  bfNormal)); 

pd->insert(iiew  TStaticText(TRect(2,4,40,S),*Shuttle  mass  and  inertia:*)); 
pd->insert(iiBW  TButton  (TRect(S0,4,60, 6), 'Select*,  cmShuttle,  bfNom^)); 

pd->inaert(new  TStaticText(T1lect(2,6,40,7),*Simulation  time  and  acceleration:*)); 
pd>>insett(new  TButton  (TRect(S0,6,60,8),*Select*,  cmTime,  bfNormal)); 

pd>>in8ert(new  TStaticText(TRect(2,8,40,9),*Rider  parameters:*)); 
pd*>inaert(new  TButton  (TRect(S0,8,60, 10), 'Select*,  cmSubject.  bfNormal)); 

pd~>iiisert(iiew  TStaticText(TRect(2, 10,40, 11), 'Centrifuge  inertia  and  dimensions;*)); 
pd->iiiSMt(iiew  TButton  (TRect(S0, 10,60, 12), 'Select*.  cmCentrifoge,  bfNormal)); 

pd-  >  insertfnew  TStaticText(TRect(2, 12,40,13),  'Output  Variables*)); 
pd->in8ett(new  TButton  (TRect(50, 12,60, 14), 'Select*,  cmOutput'l^is,  bfNormal)); 

//  allow  oam  to  select  difforent  parameter  worksheets 

usfaort  contrd; 

v^e  (control ! «  cmCancel) 

{ 

ctmtrol  «  dedcTop->execView(pd); 
switch  (centred) 

{ 

case  emStartSim: 
interior  »  chedeParamsO: 
if  (lerror)  startSimO: 
siinFinidiedO: 
contnd  —  cmCancel; 
break; 

case  cmShuttle: 
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setShuttleftiaiBiO; 

break; 

ease  cmUma: 
aatSimnuainaO: 
bleak; 

case  cmSulyect: 
setSutgectPuainsO: 
l»eak; 

case  cmCentrifuge: 
setCfiigeFuamaO; 
bredc; 

case  cmFile: 
openFUeO: 
break; 

case  cmOutputVais: 
aelectOut(MitO; 
break; 

deftult: 

break; 

} 

} 

} 

destioy(pd); 

} 

int  CeatriAige::checkPaniiisO 

{ 

//  This  fttoctioa  checks  the  input  paiaineters  to  make  sure  there  are 
//  no  obvious  errors  and  to  convert  chancter  strings  to  ooihbers. 

Vector  a,  b,  c;  //  temporary  vaiiaUes  to  assign  matrix  elements 
int  flag  »  0;  H  error  flag 

dt  »  atof((char*)  simData.dt); 
endUmel  >  atof((char*)  sjmnata.endTlmel); 
eodTime2  »  atofi[(char*)  ainData.eo(nuDB2); 
maxG  »  atof((char*)  simData  maxG); 
onsetG  —  atof((char*)  simPata.ooaetG); 
maxTanG  »  atofi[(char*)  8iinData.niaxTanG); 

if  (dt  <  »  0.0  1 1  codTimel  <  «  0.0  1 1  en(ninie2  <  =  0.0  j  j  maxG  <  »  0.0 
onsetG  <  »  0.0  1 1  maxTanG  <  0.0)  flag  ^  I; 

ahuttle.niass  >■  atof((diar*)  8huttleData.ma.ss); 
if  (diuttle.inass  <  »  0.0)  &g  »  1; 

a.set_x(aloi<(char*)  diuttleData.Ixx)); 
a.set_y(atof((char*)  diutdeData.Ixy)); 

a. 8et_z(atoi((char*)  diuttleData.Ixz)); 

b. 8et_x(ato^(char^  dmttleData.Iyx)); 
b.set_y(atofl[(cliar^  shuttleData.Iyy)); 

b. aet_z(atofi[(char*)  8huttIeData.l3rz)); 

c. set_x(atof((char*)  shuttleData.Ikx)); 
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c.Mtjf(atof((chtf*)  ihiittleDM».Izy)): 
c.Mt_z(alo0((cliar*)  diuttleData.Izz)); 

diuttle.I.a8l(a.b,c):  //  aet  moment  of  inertia  matrix 

if  (a.xO  <  0.0  1 1  b.yO  <  0.0  1 1  c.z()  <  »  0.0)  flag  »  1;  //  principal  in.o.i. 

if  (a.yO  b.xO  1 1  a.zO  c.x()  1 1  b.z() !-  c.yO)  flag  *  1:  //  product  symuastry 


for  (int  i«>0;  i<4;  i++) 

{ 

p[il.occtyied  <■  8ul^tData.s(i].occupied: 
p(i].toh  >  atof((diar*)  •ubiecd>ata.s[i].positioo): 
if  (RAfectData.^U.perceot  »  0) 

if  (8ulgectDaU.s[i].gender  «  «  0) 

p[i'.iiiaas  ■>  65.8; 
p(ii.com  e  51.6; 
p{i}.I  -  3.8; 

} 

else 

{ 

p[i].mass  »  41.0; 
p[i].com  >  45.2; 
p[i].I  -  2.4; 

} 

else  if  (sulyectData.s{i].percent  »  »  1) 
if  (aidgectData.s(i].geiider  »  «  0) 

{ 

p(i].mass  82.2; 
p(i].com  »  53.5; 

m  i  *  <-9; 

} 

else 

{ 

pp].mass  s  51.5; 
p(i].com  »  46.7; 
m-l  -  3.1; 

} 

dse 

if  (8ul:gectData.s[i].geodm'  »  =  0) 

{ 

p{i].iiias8  »  98.5; 
p[i].com  »  55.4; 
p(i].I  -  6.0; 

} 

else 

{ 

p(i].mass  ~  61.7; 
p[i].com  s  48.0; 
p[i].I  -  3  8; 

} 


//  if  male 
//kg 

//  cm  from  head 
//  kg-m‘‘2 

//  if  female 
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cftigo.1  «  atofl[(ciMr*)  cfi^aData.1); 

cAige.com  •«loi((ciiar*)  cAigeDala.com);  //  negative  becaum  of  dnttle  axee 

if  (cAige.1  <  ■»  0.0)  Aag  ■  1; 

letum  flag;  U  return  error  flag  value 

} 

void  Cttitriflige::aetSiiiiPuanisO 

{ 

//  Thia  Amctioo  displays  a  worksheet  for  ioitializing  the  simulatioa  parameters. 

TView*b; 

TNewDtalog*  pd  »  new  TNewDialog  (TRect(l,1.7S.20),  "Sinmlation  Paiameten”); 
if(pd) 

{ 

pd*>iiiaert(iiew  TButtoo  (TRect(37,16,47,18).*~0~K''.  cmOK.  bfDeAnilt)); 
pd>>iiisert(iiew  TButtoo  (TRect(S0.16, 60,18).* ~D~eAnilt',  cmRefnsh.  bfNormal)); 
pd>>iiiaert(new TButtoo  (TRect(63,16,73,18),*~C~ancer.  cmCaocel,  bfNormal)); 

b  «  new  TIiqNitLiiie  (TRect(S0,2,60,3),  10); 
pd'>iriaert(b); 

pd>>inaett(new  TLabel  (TKect(2.2.40,3),*Duratioo  of  first  phase  (minutes):*,  b)); 

b  »  new  TTivatLine  (TRect(50,4,60,S).  10); 
pd'>iiisert(b); 

pd'>iiisett(n0W  TLabel  (TRect(2.4,49,S),*Dutati(m  of  total  simulatioo  (minutes):*,  b)); 

h  •  new  Tlnputline  (TRect(S0,6,60,7),  10); 
pd*>insett(b); 

pd>>iiisert(tiew  TLabel  (TRect(2,6,40,7),”llme  txep  interval  (seconds);*,  b)); 

b  •  new  TInpotLine  (TRe6t(S0.8,60,9),  10); 
pd>>iii8ett(b); 

pd>>ins«t(iiewTLabd  (TRect(2, 8,49, 9),*Maximum  acceleration  at  sutgect  1  COM  (G):’,  b)); 

b  •  new  TIi^itLine  (TRect(50, 10,60, 11),  10); 
pd>>iiisett(b); 

pd>>insert(new  TLabel  (TRect(2. 10,40, 11). 'Acceleration  onset  (G/sec):*,  b)); 

b  «  new  TbipatLine(TRect(S0, 12,60, 13),  10); 
pd>>iiisett(b); 

pd>>inaert(new  TLabel  (TRect(2, 12,49, 13), 'Ihngential  acceleration  limit  (G):’,  b)); 

pd>  >  aetData(ftaimData); 
nahort  cootrtd; 

while  (oootrcd  !*  cmCancd  &&  control !»  cmOK) 

{ 

contrtd  «  dedcTop>>execView(pd); 
switdi  (cootnd) 

{ 

case  cmRefireafa: 
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aetStnRuamsDftO: 
pd>  >  ■BtT)wt«(^Mmr>ar«); 
bnak; 
definilt: 
bnak: 

} 

> 

if  (control  cmOK)  pd->getData(&siiiiDstt); 


} 

destnyCpd); 

} 


void  Centrifuge:  zaetSiinPuaiiisOftO 

{ 


} 


//  This  funetian  sets  die  default  vilues  for  the  siinulstion  data. 


strq^siiiil>ata.enifniiiel,  ’1*);  //  minutes 

atrq>y(sinil>ata.enifnnie2.  *2*);  //  minutes 

stic|>y(simDida.dt.  *0.025*);  //  sectmds 

sticpy(simData.maxG.  *2*);  //  G 

strcpyfrimData ,  onaetG,  *0.01*);  //  G/sec 

strq>y(simData.maxTanG,  *0.05*);  //  G 


void  Centrifuge:  raetShuttlelteBmsO 

{ 

//  This  funetian  diqilsys  a  worksheet  for  initializing  die  diutde  parameters, 
‘n^ew*  b; 


TNewDialog*  pd  '•  new  TNewDialog  (TRect(l, 1,75,20),  *Shuttle  Auameters*); 
if(pd) 

{ 

pd>>insert(iiew  TButton  (TRect(37,16,47,18),*~0‘^K’,  emOK,  biDefault)); 
pd->iBaeit(iiew TButton (TRect(50,16,60,18),* -'D-'eO^t*,  cmRefaesh,  bfNormal)); 
pd->ins«t(new  TButton  (TRect(63,16,73,18),*~C->ancer,  cmCancel,  bfNormal)); 

pd->insert(iiewTlnpatLiiie(TRect(30,3,40,4),  10)); 
pd->ii»Mt(new  TStadcText  (TRect(2,3,20,4),*Shuttle  mass  (kg):*)); 

pd->inaeit(new  TStatkText  (TRect(2,5,30,6), 'Shuttle  inertias  (kg-m‘*2):*)); 
pd->inaert(iiew  TlqintLine  (TRect(30,6,41,7),  10)); 
pd->inseit(iiewTIiqNitLiiie(TRect(42,6,53,7),  10)); 
pd->inaert(aew  Tli^iitLine  (TRect(54,6,65,7),  10)); 
pd->insett(iiew  TStadcText  (TRect(2,6,20,7),*Ixx,  Ixy,  Ixk*)); 
pd->inaert(newTbipotLtiie(TRect(30,7,41,8),  10)); 
pd>>insett(newTliqNitLine(TRect(42,7,53,8),  10)); 
pd>>inaert(new  TIiq[MitLiiie  (TRect(54,7,65,8),  10)); 
pd->iiiaMt(iiew  TStadcText  (TRect(2,7,20,8),*Iyx,  lyy,  lyz:*)); 
pd>>in8e(t(new  TXnputLine  (TRect^,8,41,9),  10)); 
pd>>insett(iiew  Tfoputline  (TRect(42,8,53,9),  10)); 
pd->iiiaett(newTIi^tLtne(TRect(54,8,65,9),  10)); 
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pd">iiUMt(a0w  TStatkTnt  (TRect(2.8,20.9).*Izx.  I^.  Izc*)); 


pd- >  setData(AdaittleData): 
udmct  cootitd; 

(contnd  !«  cmCancd  &&  coatrol !»  cmOK) 

( 

control  —  deckTop*>execVtew(pd); 

•witch  (control) 

{ 

case  cmReftnah: 

•etShattleFtomsDftQ; 
pd-  >  aetO«ta(A3huttleData): 
hreak; 
defimlt* 
braak; 

} 

} 

if  (control  cnOK)  pd>>getData(&diuttleData): 

} 

deatroy(pd): 

} 

void  Centriiiige::aetShattlePmnisDfkO 

{ 

//  This  fimcdon  aetc  the  defiult  values  for  the  diuttle  data. 

stfqqr(ahutdeData.niaas.  *98122*);  //  shuttle ««««  in  kg 

t»icpy(AuOUDtU.Jxx,  *1453255*);  //  shuttle  inertias  in  kg-m^ 

stiq^diuttleData.Ixy,  *>7544*); 

strcpy(diuttleDala.Ixz,  *>335642*); 

str4>y(diattleData.Iyx,  *>7544*); 

strqqf(shuttleData  .lyy,  *10077164”); 

stiq>y(shttttleData.Iyz,  *>10259*); 

8tiq)y(diuttleData.Izx,  *>335642*); 
stiq^shuttleData.1^,  *>10259*); 
stiq>y(shattleData.Izz.  ”10346577*); 

} 

void  Centiifu^::setSubjectPBnuiisO 

{ 

//  This  fimction  diq>lays  a  woikdieet  for  initializing  the  subject  parameters. 

TView*  b; 

TNewDialog'*  pd  «  new  TNewDialog  (TRect( 1,0.76,22),  *Rider  Parameters*); 
if(pd) 

{ 

pd>>insert(new  TButton  (TRect(37,19,47,21),*-0»K*,  cmOK,  bfDefinilt)); 
pd>>insert(new TButton (TRect(50,19,60,21),*~D~e£iult”,  cmReftesh,  b^ormal)); 
pd>>insert(new  TButton  (TRect(63, 19,73,21),*  ~C~ancer.  cmQmcel,  bfNormal)); 

//  subject  positions  and  types 
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pd->iaMrt(ii0w  TStiticTat  (TRflct(3, 1,10,2),  'Rider')); 
|xl->iaeHl(iMMr  TStetieText  (TRect(l  1,1,26,2),  'OccufMed?')); 
pd->tiiMtt(aMr  TStettcTut  (TRect^,  1,39,2),  'Percentile')); 
pd->iMMt(iiew  TSWkTnt  (TRect(40, 1,30,2),  'M/F  ?')); 
pd->iMert(iiew  TStaticText  (TRect(5 1,1,72,2),  'Heed  position  (cm)')); 

pd->in«ert(iiew  TStettcTeatt  (TRect(3,3,12,4),  '#!')); 
b  >  new  TRedioBiittaiieCTRecKl  1,3,26,3), 

new  TSItemC Vacant',  new  TSItemCOccupied',  0))); 
pd->inaeit(b); 

b  »  new  TRadioButtaos  (TRect(27,3,38,6), 

new  TSIlein('3*',  new  TSIteiii('30%',  new  TSItem('93%',  0)))); 
pd->inaett(b); 

b  «  new  TRadioBiittons  (TRect(39,3,30,3), 
new  TSUemCM',  new  TSIteni(*F',  0))); 
pd->inaeft(b); 


pd->inaert(iiewTInpiitLiiie(TRect(3 1,3,68,4),  10)); 

pd->iiiaert(iiew  TStaticText  (TRect(3,7,12,8),  ’WT))', 
b  ->  new  TRadioButtoni  (TRiect(ll,7,26,9), 

new  TSItemCVacant',  new  TSItemCOccupied',  0))); 
pd->inaeft(b); 

b  »  ii0wTRadioBiittaiis(TRect(27,7,38.IO). 

new  TSItemCSIC.  new  TSItem('30%',  new  TSItem('9556',  0)))); 
pd->msett(b); 

b  «>  new  TRadioBottoiia  (TRect(39,7,30,9), 
new  TSUemCM',  new  TSItemCF',  0))); 
pd>>iiiae(t(b); 

pd>:>ittsert(newTIiqiutLineCrRect(31,7,68,8),  10)); 

pd->itt8eft(new  TStaticText  (TRect(3,ll,12,12),  '#3')): 
b  »  new  TRadkiBottwia  (TRect(ll.H,26,13), 

new  TSItemCVacant*,  new  TSItemCOccupied',  0))); 
pd->inaeft(b); 

b  »  newTRadioBitttoiis(TRect(27,ll,38,14), 

new  TSItemCS%',  new  TSItemC30%',  new  TSItemC93%',  0)))); 
pd->inseft(b); 

b  «  new  TRadioButtoos  (TRect(39,ll,30,13), 
new  TSItemCM',  new  TSItemCF',  0))); 
pd>>insert(b); 

pd>>insett(newTiBpntLine(TRect(31,ll,68,>J),  10)); 
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pcl->iBMtt(iMW  TStUkTaxt  (TReet(3.1S.12.16).  ’#4')): 
b  -  a0wTltadioBittloiHCntect(li.lS.26.17). 

MW  TSUanCVaent”,  mw  mtMuC’OociqMed”.  0))); 

pil->iMMt(b); 

b  ■■  new  TRadkAuttoiis(TRect(27. 15.38. 18), 

new  TSIIein(*Sft*.  new  TSIleiii('S05l'.  new  TSItein(*9S%*.  0)))); 
pd->tnieit(b); 

b  «  new  TRadfoButtoM  (TRect(39, 15,50, 17), 
new  TSItain(*M’.  new  TSIlein(‘F'.  0))); 

Iid>>inMrt(b): 

pd->inMtt(newTInpiitLine(TRect(51. 15,68,16),  10)); 

pd>  >  setDitaCAaabiectDais); 
nriioft  ooirtiol: 

nAile  (oootfol  !■*  cmCancd  &&  control !»  cmOK) 

{ 

cootnd  »  ded(Top->execView(pd); 

■witch  (oootiol) 

< 

ceee  caReftedi: 

■etSidgectBnuMDftO: 
pd-  >  ■etDete(dt«ubjectDeta); 
bradc; 


bmk; 

} 

} 

if  (control  cmCHC)  pd->getOetn(&8iibjectDflte); 


} 

deitroy(pd); 

} 


void  Ceattifnge::aetSulgectnnnnisDftO 


{ 


//  Tins  ftmctkn  leli  the  defiuilt  valnec  for  die  snbject  date. 


} 


for  (inti»0;  i<4;  i'f+) 

{ 

■id;jectDala.a[i].oocapied  «  0; 
iabjectData.4Q*pwoent »  0; 
iidiiectData.i(i].gaader  «  0; 
atrc|>]r(iiibieetDala.iP].poaitioa, 
} 


lOO'); 


//  i  is  sotgect  number 

//  defonlt  is  unoocnpied 
U  definilt  is  5% 

//  defimlt  is  male 

//  defimlt  is  1(X)  cm 
//  position  is  tbe  top  of  die  bead 


void  Centrifiige::setCfiigenuafflsO 

{ 

//  Hus  foncdon  displays  a  wotfcsheet  for  initiaiizing  die  Centrifuge  parameters. 
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TViww*b; 


TN«wDiak>f* pd  »  imw  TN0wDialog  (TRect(l. 1,73,20),  ‘Centrifuge  Fuuneten”); 

if(p^ 

{ 

pd>>mMft(ii0W  TBottoa  (TRecl(37,16,47,18),'~0~K*,  cmOK,  bfDeftult)); 

|m1  inemtfnnw  TButloa  (Tlleet(S0,16.60,18),* ~D~efnilt*,  caiRefireeh,  bfNonnel)); 
|Ml>>aMft(a0wTBiitlan(TRnet(63,16,73,18),*~C~«nceI*,  cmCanoel,  bfNormel)); 

b  •  new  TbqmlLine  (TRect(SS,3,6S,4),  10); 

IKl->inMft(b); 

pd->inse(t(new  TLabel  (TRect(2,3,4S,4), ‘Centrifuge  moment  of  ineitie  (kg-m''2):*,  b)); 

b  «  new  Tlnputline  (TRect(SS,S,6S,6),  10); 
pd->ineeft(b); 

pd->ineeft(new  TLabel  (TRect(2,S,S2,6),”Cfuge  COM  position  relative  to  shuttle  COM  (m):‘,  b)); 

pd>  >  aetData(ftcfugeDatt); 
urinxt  GOBtud; 

while  (control !«  cmCanoel  AA.  contrd  ! -  cmOK) 

{ 

control  ■■  deakTap>>eKecView(pd): 
switch  (controO 
{ 

case  cmRefireah: 

satCftagePanmsDfkO: 
pd*  >  aetData(AefiifeData): 
break; 
deteilt: 
break; 

} 

> 

if  (control  ««  cmOK)  pd->getData(dccfugeDatB); 

> 

destroy(pd); 

> 

void  Centrifuge:  tsetCfugenramsDfkO 

{ 

//  Thia  function  seta  the  deftnlt  values  for  die  centrifuge  center  of  mass 
//  location  (foewird  of  die  dmttle  com)  and  inertia  (only  inertias 
//  rixmt  die  rotating  axis  are  considered). 

stiqiy(cftiiel>atB.I.  *12.5*);  //  made  up  value,  kg-m*^ 

str^c(ogeDatn.oom,  *12.9*);  //  from  Meeker  paper,  m 

> 

void  Centrifuge:  tsdectOn^wtO 

{ 

//  Hus  fonetion  dia|diys  a  worksheet  for  selecting  die  ou^t  variables. 

TView*b; 
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IDUof^pd  >  nMv  TlKalog  (TRee<< 1,2,76,20).  'Output  Variables'): 
if(pdO 
{ 

p<t»>iiiaert(iiauf‘rautlon(TRsct(SO.  13,60,17),' ~0~K'.  cmOK,  blDeftult)); 
|x)->iiiMl(iMw‘nulloa  (TRect(63.1S.73.17).*«C~aiioel'.  cmCaDcel.  bfNonnal)); 


p(l>>iaaeft(iMw  TStaticTeKt  (TUaetCl  1.2,40,3).  Time')); 

b  «  iwur  TOwdcBoiM  (TRect(l  1.3,43.12). 

nsfw  TSIlHO(*Cfiite  Angular  Velocity',  new  TSItaio('Cfuge  Angular  Accdetadao'. 
new  TSItamCCfiige  Orivu  Momein',  new  TSItemC^  Force', 
new  TSIteoi(*SS  Moment',  new  TSIl«n('SS  Aoceleration', 
new  TSIlem(*SS  Angular  Aooetentkn*,  new  TSIteni('SS  COM  Dinpiacement', 
new  TSnemCSS  Angular  Dtaplaoement'.O) 

)))»))»: 

pd->inaart(b); 

pd->iMert(nwir  TStatieText  (TRact(S0,2.63.3),  *(eee)')): 
pd>>inaect(new  TStatieText  (TRael(S0,3,63.4),  ”(d^/eec)')); 
pd->inaert(nBw  TStatieText  (TReet(S0.4.63.S),  '(deg/aec‘'2)')): 
pd->iaaect(new  TStatieText  (TRecl(S0,S.63.6).  *(Nm)*)): 
pd<>iaaait(aew  TStatieText  (TRect(50.6.63.7).  '(N)')): 
pd->inaeit(new  TStatieText  (TRect(S0.7.63.8).  '(Nm)')); 
p(l->inacrt(tiew  TStatieText  (TRect(S0.8.63.9),  *(G)*)): 
pA“>inBert(new  TStatieText  Cntect(50,9,63,10),  *(d4/aec''2)')); 
pd->inseit(new  TStatieText  CTRect(S0, 10,63, 11).  *(m)')); 
pd->iaaert(new  TStatieText  Cniect(S0,11.63.12).  '(d^)*)): 

pd->eetData(AoutpntData); 

naboct  eontiol  *■  <ieelfrop->exeeView(pd): 

if  (ooinrol  «■«  emCHE)  ^>getData(4bMnpotData); 

> 

deetfoyOpd): 

} 

void  Centrifuge:  :openFUeO 

{ 

//  This  functkxi  opens  a  file  dialog  box  and  opens  a  selected  file  for  output. 
TFileDialog*d  «  (TFOeDialog*)  valktView  ( 
new  TFileDialogC*.**,  'Open  a  File',  '»N~aniB'.  idOpeoButton,  100)); 
diar  fileNameCMAXPAlil]; 

if(d) 

{ 

dedcTop*  >  eneeViewfd); 
d>  >  geff ileName(fileNanie): 
fl  .openffiWfems); 

} 


//  get  output  file  name 
//  open  output  file 


dMlray(d); 

) 

//  ■  . . Appitettiaa  Mam  Routiiie - 

iBtiBam(vgid) 

{ 

//  TUa  ia  mam  routine  for  dm  applicatkm. 

CMttrifofeMc; 

aac.fonO; 

retunO; 

} 

// . . .  Ceatrifoge/Shuttla  Sinwlatioo  routiae - - 

void  Cantrif^e::alart^]ii(void) 

{ 

//  TUa  foactkm  *»«**«■»»—  variablaa  for  the  atmiilatioB  and  loopa  tfarou^ 
//  foe  ^leclfted  Muaihdinn  tune.  All  quantitiea  expieaaed  in  metiic  unite. 


couat  dmfole  g  •  9.81; 

//m/s^ 

court  doifole  pi  -  3.141S92fiS4; 

//pi 

oQMt  double  id  ■■  180.(ypi: 

// radias  to  degreea 

double  time  -  0.0; 

dmfole  inertia -0.0; 

//  teaporary  varirt>le 

Voclor  taumaje.  omegaje, 

//  agular  fci— «i«»«  of  cfoge 

VeelorH.e; 

//  angular  momentum  of  cfoge 

Vacior  omega  **  — ■ipi—  <»f  — 

//  laat  tune  atep  vahiea 

Vector  r jC4irv_pC41.  ajj(41; 

//  enliiect  fcinemnticB 

Vector  r^4],  r jrtotal(4]: 

//  rotated  aotgect  poaition 

II  wifo  cfoge  poeition 

Vector  F_p(41.M_p; 

//  aubject  (fyumiee 

Vector  r_cfo^ 

//  centrifoge  com  poeitioa 

Vector  r_m,  vjm,  a_ai; 

//ahuttlekinBinatica 

Vector  omepnednet,  alpha.aaLaat; 

//  laat  time  atep  valnaa 

Vector  gammaju,  omegajm,  alphajm; 

II  fonttle  angular  kinematice 

Vector  omega  tott  alpha  lot; 

//  aubject  total  angular  vd.  and  accd. 

Vector  v_adjat,  a_mLart; 

//  laat  time  atq>  vahiea 

Vector  F_aB,  Mju; 

//  dmtde  force,  moment,  ang.  momentum 

Vector  M  Jnfoi»  Mjcfoge,  M _gyio; 

II  imbalance,diive,gyfoccopic  momeott 

Vector  ataa«  and; 

//  aet  dafonlt  rtream  panunetere  to  pievioosiy  d^ned  output  file  atieam 

fl.pracuionO); 

fl.aetfi9oK:aciantiiie;k»::floatfield); 

fl.aotf|[ioe::left,ioa:m4natfieii0: 

//  aetq»  ooMtant  vahiee 

r_pp)].aet(0,  p[0].toh  +  p{0].C9m,  0);  //  poeitian  vecton  for  center  of  maas 

r_p(li.eet(0, 0,  ^U-toh  +  ^l].oom); 
r_pP].aetG).  +  p(2]*com),  0); 

r_pP].aat^.  0,  -(^1-foit  +  rt^l-oom)); 
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fiir  (iaitaO;  i<4;  i-f-*-) 

r 100.0; 


//  ooovart  potitiou  io  meten 


for  (i-0;  i<4;  i++) 
if  (p(i].ooGapMd) 
ioMtia  p(i].I  +  p(i].aMw* 

|Mw((p(i].oom  -t-  p(i].toh)/100.0.2.0):  //  riden  inertia 
inertia  -f  •  cfafe.!;  //  add  cantriftite  inertia  to  riden  inertia 

Matrix  I  c(inertia,  0,  0,  II  centrifuge  phie  rider  inertia  tanaor 

0.  0,  0. 

0.  0.  0); 


rjcAq|e.aet(cftige.oom,  0,  0);  //  centrifuge  center  of  nune  poattian 

Matrix  invitee  »  niinv(dnittle.I):  //  kiverae  of  diuttle  inertia  tanaor 


II  write  header  infbmation  to  output  file 
// laria  ahnnlarion  loop 

fcr  (time  «>  0;  time  <  60.04aodT!nie2;  time  +>•  dt) 

{ 

//  mwe  old  valuee  fbr  nee  in  mimerieel  integntiane 
omegejcLaat  «  oaegejc; 
alphajcLaat  «■  al|fiiaje; 
omaga^adaat  «  aueQge_ae; 

■tpif  —I  aa*  m  a^iha  ee; 
v_adjM  ■  v_ae; 

4.«L8Bt  «  a_ce; 

//  cbedc  to  aee  if  oentriftage  needi  to  accdente  to  readi  qii»opriate 
II  Bteady  ante  angular  velocity  to  generate  nmxG  at  subject  #1  center 
//  of  maae.  Note  if  subject  #1  not  occupied,  die  loop  will  use  defnlt 
//  values  fkom  sulgect  #1  to  accelerate.  Ihe  tangential  acceleration  is 
//  lindtedby  die  amxTanG  variable, 
if  (time  <  «  60.04endTimBl) 

{ 

if  (mag(oinBgajc  *  (ompgajc  *  r_pt(0D)/g  <  *  masG) 
elplia_c.se<alplia_e.xO  oasetO*g<*dt.0,0); 
else 

a4iha_c.aet(0.0.0): 

if  ((nMv(a^iiajc  *  rjpi(0])/g  >  >  maxTaaG)  &&  (mag(alpha_c)  !«  0)) 
a^ha  c.aal(maxTaaG*g/mag(rj)r{0]),0,0); 

> 

ebe 

{ 

if  (mag(oinegajc)  >  «  0.02) 

alpiia_c.ae^a|phajc.xO  *  ooeelG*g<dt,0,0); 
ebe 

alpha  c.set(0,0,0); 

if  ((inag(elpiia  e  *  r  j^0])/g  >  •  maxTanG)  &&  (niag(alpba  c)  1  -  0)) 
alpbi.c.aet(-maxTanGVB<>((rji>(0D.0.0); 
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} 


onMpjc  -f  »  0.5'*(a4ilMije  •f  //  cfiige  angular  vnloeity 

pmamjt  0.5*(<mmgfkjt  -f  onHPLcLatt)^;  //  cftige  angular  poaitian 
if  (fram_c.xO  >  *  2.0^)  tBmnia_c.aai_x(ianinia_c.xO  -  2.0*jpi): 

//  onn^wita  rotatad  poaitioo  vartma.  Uaa  tiaapoaa  of  rotation  matrix 
//  bacmma  actually  aaad  to  rotala  back  to  fixed  cooidinale  ayatem. 

Matrix  Refege  aetRMalrix(maf(fBmina_e).  ’x*); 
fbr  (i«>0;  i<4;  i++) 

{ 

rjpcOl  ■■  tnna(Reft^)*lr_p(i];  //  poaitioo  of  aulgect  relative  to  cfiige  com 

rjatotriO]  *  iLpfOl  r  efiige;  //  poaition  relative  to  ahuttle  com 

> 


//  total  angular  velocity  and  angular  aceelentioo  vectora. 

omefa_lot  «  omcfa_m  +  omegajc: 

a^dmjiot  »  alpha_m  -t-  alphajc  +  (oa»tt_u  omegajc); 

// pi*»  vdodtiec  and  eccelemtionB  of  the  aubjecta*  center  of  maaaea 
//  Note  0’>  impoftmt  becauae  ofvertoaded  *  croea  product  is  uauaUy 
//  loner  priority  than  +  aign. 

Ibr  (i«»0;  i<4;  i++) 

{ 

v_pp]  •  amegajlot  rjutotalfi];  //  aul^  vdocitiea 

aj)0]  ■■  tot  *  rjpctotaini)  +  (omega  tot  vjp(i));  //  total  accderation 
ataa  -  alpha.c  ^  rjirTi];  //  tangential  acceleratiaii 

and  «  omega  c  (omega  e  **  r_pr(i]);  //  tadial  acceleration 

> 

//  compute  force  requiied  to  accelerate  the  aubjecta.  Note  neglected 
//  accelewtioo  of  aubjecta  due  to  motion  of  dm  diuttle  —  negUgiUe 
//  compared  to  the  motkn  of  die  ceotriiuge. 
for  0*0;  i<4;  i++) 
if  OiOl^occupied) 

Fjplil  -  pn]-niaca*b_p(i]; 


//  ooupute  leanltant  accetecatioo  of  die  ahuttle  center  of  masa  due 
//  to  motion  of  die  aubjecta. 


F  m  »  0.0; 

fx  (i-0;  i<4;  i++)  F_aa  +-  -1.0*F_p[il; 
a_aa  «  F_8a/dnittle.ma8a; 
v_aa  +  ■  0.5^a_m  +  a^aaLaat)^; 
r_aa  +  —  0.5*(v_8a  +  v^asLast)^; 


II  react  to  0  each  loop 
//  equal  and  oppoaite  reactive  force 
//  ahutde  acceiemtion 
//  ahutde  vrioci^ 

//  diutde  di^lacmneot 


//  compute  moment  ^ifdied  to  dmttle  centm  of  maaa  doe  to  acceleration 
//  tA  aidijecta,  ootqmte  dm  angular  momentum  of  die  riiuttle,  conqwte  the 
//  reaultmit  angular  acceleration  of  die  diutde  due  to  centrifuge  momenta. 


Mjcftage  »  •1.0*I_c^phajc;  //  drive  torque 

M_imb  ■■  r_cfuge  ^  F_ac;  //  imbalance  momenta 


119 


H_e  •  I_c*oiiwfa_c;  //  angular  momeiitum  of  cfiige 

M,jyn>  »  oiiiefa_sa  H_8a:  //  gytxMcopic  restoring  torque 

M^sa  M^cibge  +  M_unb  •  M,jyio;  //  total  mnmeiit  applied  to  shuttle 

alpha_as  »  invl_a8  *  M_sa;  //  shuttle  angular  acceleration 

OBMga.si  +  *  O.S*(alpha_ss  +  alpha_ssLast)*dt;  //  shuttle  angular  velocity 
gamma.ss  +«  O.S^omega.ss  +  (Mnega_saLast)'*dt;  //  shuttle  angular  diqrlacement 

//  write  desired  variaUes  to  output  file 

fl  <  <  aetw(12)  <  <  time; 
if  (outputPata.checkBox  A  1) 

fl  <<•(•<  <  oaiega_c.xO*id  <<’,•<<  oniega_c.yO'*rd  <<*,'<<  cuaega  c.zO*td  <  <  *) 

••  —  — 

• 

if  (outputPata.checkBox  A  2) 

fl  <<"("<  <  alpha_c.xO*nl  <<’,*<<  alpha_c.yO*Td  <<’,■•<<  alpha_c.zO'*M  <<")’; 
if  (oulputData.chedJox  &  4) 

fl  <<"(•<  <  M_cfiige.xO  <<*,'<<  Mjcfuge.yO  <  <  ’  <  <  M_cfiige.zO  <  < 

if  (outputPata.dieckBox  A  8) 

fl  <<-("<  <  F_aB.xO  <<",•<<  F_ss.yO  <<'.•<<  F_8S.aO  <<*)'; 
if  (ouqmtData.chedcBox  A  16) 

fl  <<■(•<  <  M_aa.xO  <<•,*<<  M_a8.y0  <  <  <  M_aa.zO  <  <  *)  *; 

if  (outputPata.checkBox  A  32) 

fl  <<  •  (•  <<  a_aa.xO  <<’.•<<  a_sa.yO  <<•.*<<  a^ss.zO  <  <  ’) 
if  (outputPata.diedcBox  A  64) 

fl  <<•(■<  <  al|fiui_8S.xO'*nl  <<*,*<<  al|*a_sa.yO*rd  <<*,•<<  alpha_ss.zO*rd  <  <  ’) 

**  ““ 

• 

if  (ouqmtPata.chedcBox  A  128) 

fl  <<•(•<  <  r_S8,xO  <<•.•<<  r_ss.y()  <<•,•<<  r^ss.zO  <<’)*; 
if  (outputPata.checkBox  A  256) 

fl  <<•(•<  <  gamma  88.x0*rd  <<*,'<<  gamma  ss.yO^rd  <<•,*<<  gamma  ss.zQ^ 
<<•)"; 

fl  <  <  eodl; 


} 

fl.closeO; 

} 
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APPENDK  B3 

Cardiovascular  Simulation  Program 


B3.0  Pitqpam  Name.  CVMODEL.FOR  for  MS-DOS 

B3. 1  Purpose.  CVMODEL  estiina^  the  steady  state  pressures  and  flows  in  the 
cardiovascular  system.  The  program  outputs  three  files:  CVAOUT.TXT, 
CWOUT.TXT,  and  CVPOUT.TXT.  These  files  contain  the  arterial,  venous,  and 
peripheral  pressures  and  flows  in  each  of  the  SO  vascular  compartments  simulated  by 
the  model.  The  acceleration  applied  to  each  compartment  is  varied  by  the  user  by 
setting  parameters  in  the  program. 

B3.2  General  Description  of  Program  Flow.  There  are  four  major  modules  contained  in 
three  files.  The  main  program,  CVMODEL  calls  INITIAL  to  set  the  initial 
condidmis  for  the  dififeroidal  equations  which  are  defined  in  CVSUBS,  and  solved  by 
RKF4S,  a  Runge-Kutta  integrator.  In  its  present  form,  the  user  must  code  the  time, 
and  spatial  variation  in  the  acceleration  and  the  segment  orientation  in  subroutine 
INITIAL  and/or  CVSUBS  and  recompile  the  program  for  execution.  The  only  data 
file  required  is  a  two  line  file  which  sets  the  int^ration  parameters.  The  operation  of 
the  program  is  folly  documented  in  commoit  lines  contained  within  the  co^. 

B3.3  Output  Variables.  The  output  consists  of  a  header  in  CVAOUT.TXT  which 

documents  the  integration  parameters  and  the  run  title  line.  This  is  followed  by  41 
columns  of  oufout.  Column  1  is  time  in  seconds,  column  2-21  contain  pressure  in 
Pascals,  and  colunms  22-41  contain  flows  in  m’*sec'^  CWOUT.TXT  and 
CVPOUT.TXT  contain  only  the  pressure  and  flow  data,  i.e.  there  is  no  header  data. 


CVMODEL.FOR  •  DtCMbcr  17,  1993  (10:12  an) 

PROGRAM  CVMCOEL 

C . . . 

C...  PROGRAM  CVMODEL  CALLS:  (1)  SUBROUTINE  INITAL  TO  DEFINE  THE  ODE 
C...  INITAL  CONDITIONS,  (2)  SUBROUTINE  RKF45  TO  INTEGRATE  THE  ODES, 

C...  AND  (3)  SUBROUTINE  PRINT  TO  PRINT  THE  SOLUTION. 

C... 

C...  Itm  FOLLOUING  CODING  IS  FOR  SOO  ODES.  IF  MORE  ODES  ARE  TO  BE  INTE 
C...  GRATED,  ALL  OF  TIK  SOO'S  SHOULD  BE  CHANGED  TO  THE  REOUIREO  HUMBER 
IMPLICIT  DOUBLE  PRECISION  (A-H),  DOUBLE  PRECISION  (0-Z> 

INTEGER  NI,  HO,  NEON,  NSTOP,  NORUN 

COMNON/T/  T,  NSTOP,  NORUN,  PP,  TIN 

1  /Y/  Y(500) 

2  /F/  F(500) 

C. . . 

c!!!  THE  NUMBER  OF  DIFFERENTIAL  EQUATIONS  IS  IN  COMNON/H/  FOR  USE  IN 
C...  SUMOUTINE  FCN 

COMNON/N/  NEON  I  TUO  EQUATIONS  PER  VASCULAR  SEGMENT 

C... 

C...  COMMON  AREA  TO  PROVIDE  THE  INPUT/OUTPUT  UNIT  NUMBERS  TO  OTHER 
C...  SUBROUTINES 

COMNON/IO/  NI,  NO 
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UUCIUM  UUM  UU  UU  OU  U  CJ  UU  U  U «-  O  U  UUU  U  U  (M  U  U  U  U  UfO  u  u  u 


AISOLUTE  OINEMSIONIM  OF  THE  ARRAVS  REQUIRED  RY  REFAS 


...  THE  USER  MUST  PROVIDE  STORAGE  IH  HIS  CALLIHC  PROGRAM  FOR  THE  ARRAYS 
IH  THE  CALL  LIST  •  YLNEQM)  ,  uaRK(3*«niEQM>  .  tUDRIKS)  , 

...  DECLARE  F  IH  AM  EXTERNAL  STATEMENT,  SUPPLY  SUtROUTINE  F(T,Y,YP)  AND 

DQUtLE  PRECISION  YV(500),  U0RK(3500) 

INTEGER  lUORK(S) 

..  EXTERNAL  THE  DERIVATIVE  ROUTINE  CALLED  RY  RKFiS 
EXTERNAL  FCN 

..  ARRAY  FOR  THE  TITLE  (FIRST  LINE  OF  DATA),  CHARACTERS  END  OF  RUNS 
CHARACTER  TITLE(20)«4,  EHORUN(3)*4 

!!  DEFINE  THE  CHARACTERS  END  OF  RUNS 
DATA  ENORUN/*ENO  ','OF  R'.'UNS  '/ 

DEFINE  Tl«  INPUT/OUTPUT  UNIT  NUNRERS 

NI«5 

NOi^ 

!!  OPEN  INPUT  AND  OUTPUT  FILES 
OPEN(NI ,FILE-'CVDATA.DAT' ) 

OPEN(NO,FILE«'CVQPUT.TXT'.SLOCKSIZE-2048) 

!!  INITIALIZE  THE  RUN  COUNTER 
NORUN-O 

!.  SEGIN  A  RUN 
NORUN-NORUMfl 

!!  INITIALIZE  THE  RUN  TERMINATION  VARIARLE 
NSTOPaO 

READ  THE  FIRST  LINE  OF  DATA 
REAO(NI,1000.ENO>999)  (TITLE(I),  1  -  1,  ZO) 

..  TEST  FOR  END  OF  RUNS  IN  THE  DATA 
DO  2  I  >  1,  3 

IF(TITLE(I)  .HE.  ENDRUN(I))  GO  TO  3 
CONTINUE 

..  AN  END  OF  RUNS  HAS  SEEN  READ,  SO  TERMINATE  EXECUTION 
9  STOP 

!!!  READ  THE  SECOND  LINE  OF  DATA 

READ(NI,*,END>999)  TO,  TF,  TP 

!!  READ  THE  THIRD  LINE  OF  DATA 

REAO(NI,*,END-999)  NEON,  ERROR 

cV.'.  PRINT  A  DATA  SUMMARY 

URITE(NO,10QS}NaRIM.(TITLE(l),  I  >  1,  20), 

1  TO,  TF,  TP, 

2  NEON,  ERROR 
MITE(*,1003)  NORUN,  (TITLE(I),  I  «  1,  20), 

1  TO,  TF,  TP, 

2  NEON,  ERROR 

C... 

C...  INITIALIZE  TIME 
T  ■  TO 

C... 

C...  SET  THE  INITIAL  CONDITIONS 
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r»  o  o  o  o  n  ft  r»  o  o  no  no  no  on  <►  o  o  o  o  n  n  n  o  o  n  n  n  n  «i  on  no  no 


CAU  INITAL 

..  SCT  m  INITIAL  DsAlVATIVES  (FOR  POSSIBLE  PRINTING) 

CALL  OERV 

!!!  PRINT  THE  INITIAL  CONDITIONS 
CALL  PRINTCNI.  NO) 

..  SET  THE  INITIAL  CONDITIONS  FOR  SUBROUTINE  RKF45 
TV  •  TO 

00  S  I  >  1,  NEON 
W(I)  »  t<I) 

CONTINUE 

..  SET  THE  PARAMETERS  FOR  SUBROUTINE  RKF4S 

!!  FIRST  CALL  TO  RKF45 

RELERR  >  ERROR 
ABSERR  >  ERROR 
IFLAG  ■  1 
TOUT  ■  TO  ♦  TP 

!!!  CALL  SUBROUTINE  RKF4S  TO  START  THE  SOLUTION  FROM  THE  INITIAL 
...  CONDITION  (IFLAG  >  1)  OR  COMPUTE  THE  SOLUTION  TO  THE  NEXT  PRIHT 
...  POINT  ((FLAG  a  2) 

CALL  RKF45(FCN,NEON,YV,TV,TOUT,RELERR.A8SERR,IFLA6,UORK.IUORIC) 
!!!  PRINT  THE  SOLUTION  AT  THE  NEXT  PRINT  POINT 
TaTV 

TOUT  a  TV  ♦  TP 
PRINT  •,"TI««  a  a,  T 
00  6  I  a  1,  neon 
Yd)  a  YVd) 

CONTINUE 

CALL  OERV 

CALL  PRIHT(N1,N0) 

..  TEST  FOR  AN  ERROR  CONDITION 
IFdFLAG  .NE.  2)  THEN 

PRINT  A  MESSAGE  INDICATING  AN  ERROR  CONDITION 
URITE(NO,1004)  IFLAG 

GO  ON  TO  THE  NEXT  RUN 
GO  TO  1 
END  IF 

..  CHECK  FOR  A  RUN  TERMINATION 
IF(NSTOP  .NE.  0)  GO  TO  1 

..  CHECK  FOR  THE  END  OF  THE  RUN 

IF(TV  .LT.  (TF  -  0.500*TP))  GO  TO  4 

!.  THE  CURRENT  RUN  IS  COMPLETE,  GO  ON  TO  THE  NEXT  RUN 
GO  TO  1 


...  FORMATS 


1000  F0RMAT(20A4) 

1001  F0RMAT(3E10.0) 

1002  FORMAT! I5,20X,E10.0} 

1009  FORMAT! 1H1, 

1  '  RUN  NO.  •  '.I3,2X,20A4,//, 
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2  '  INITIAL  T  -  ',B10.3,//, 

3  »  FINAL  T  -  '.E10.3,//, 

*  '  MINT  T  -  M10.3,//, 

5  '  NUNH»  OF  OIFFENENTIAL  EQUATIONS  •  'IS,//, 

6  '  NAXIMM  INTEGKATION  ERROR  -  ',E10.3,//, 

7  INI) 

100A  FORNATdH  ,//,'  IFLA6  -  ',13,//, 

1  '  INDICATIN6  AN  INTEGRATION  ERROR,  SO  THE  CURRENT  RUN'  ./. 

2  '  IS  TERMINATED.  PLEASE  REFER  TO  THE  OOCUKHTATION  FOR'  ,/. 

3  '  SUBROUTINE', //,25X,'RKF45',//, 

4  '  FOR  AN  EXPLANATION  OF  THESE  ERROR  INDICATORS'  ) 

END 

SUBROUTINE  FCNCTV.TV.YDOT) 

C... 

C...  SUBROUTINE  FCN  IS  AN  INTERFACE  ROUTINE  BETWEEN  SUBROUTINES  RKF45 
C...  AND  DERV 

C...  NOTE  THAT  THE  SIZE  OF  ARRAYS  Y  AND  F  IN  THE  FOLLOWING  COMMON  AREA 
C...  IS  ACTUALLY  SET  BY  THE  CORRESPONDING  COMMON  STATEMENT  IN  MAIN 
C...  PROGRAM  HEADHIT 

IMPLICIT  DOUBLE  PRECISION  <A-H),  DOUBLE  PRECISION  (0-2) 

INTEGER  NEON,  NSTOP,  NORUN 

COMMON/T/  T.  NSTOP,  NQRUN 

1  m  Y<500) 

2  /F/  F(SOO) 

C... 

C...  THE  NUMNeR  OF  DIFFERENTIAL  EQUATIONS  IS  AVAILABLE  THROUGH  COMMON 
C. . .  /N/ 

C... 

COMMON/N/  NEON 

C... 

C...  ABSOLUTE  DIMENSION  THE  DEPENDENT  VARIABLE,  DERIVATIVE  VECTORS 
DOUBLE  PRECISION  W(500),  YDOT(SOO) 

C*  •  • 

C...  TRANSFER  THE  INDEPENDENT  VARIABLE,  DEPENDENT  VARIABLE  VECTOR 

C...  FOR  USE  IN  SUBROUTINE  DERV 

C... 

T  ■  TV 

DO  1  I  «  1,  NEON 
Yd)  ■  YVd) 

1  CONTINUE 
C... 

C...  EVALUATE  THE  DERIVATIVE  VECTOR 
C... 

CALL  DERV 

C... 

C...  TRANSFER  THE  DERIVATIVE  VECTOR  FOR  USE  BY  SUBROUTINE  RKF45 
C«  •  • 

DO  2  I  -  1,  NEON 
YOOT(I)  -  Fd) 

2  CONTINUE 
RETURN 
END 
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SUnMUTlNC  CVSUK.FOR  •  OtCMter  17.  1993  (10:30  m) 


CVSWS.raR  •  SUMKVTINES  REQUIRED  TO  IMPLEMENT  A  DVNAMIC  MODEL  OF  TNE  HUMAN 
CARDIOVASCULAR  SYSTEM 

LAST  REVISION:  12/01/93 

SUSROUTINE  INITIAL 

THE  aodtl  dMcritMd  htrtin  parallals  the  developwnt  presented  in  a  paper  by 
Uhita,  RJ,  Cranton,  DC  and  Fitsgarald,  DC.  Cardiovascular  Modelling:  Siaulating 
the  HuMn  Cardiovascular  Responsa  to  Excerciae,  Louar  Sody  Negative  Pressure,  Zero 
Cravity  and  Clinical  Conditions.  Adv.  Cardiovasc.  Phys.  (Part  I),  pp.  195-229  (Karger, 
Basal  1983).  It  also  draus  fron  papars  by  Jaron,  at  al  who  took  a  siailar  approach 
In  particular  aany  of  tha  paraMter  valuas  for  the  physical  properties  of  the  segnents 
Here  taken  froai: 

Jaron,  0,  Moore,  TU,  and  Sal,  J.  Cardiovascular  Response  to  Acceleration  Stress: 
A  CON^ar  Siaualtion.  Proceedings  of  the  IEEE,  Vol  76,  No  6,  pp.  700-707  (1988). 

Houavar,  soa»  of  the  paraaeters  listed  in  Jaron  Hare  clearly  in  error.  Where  neu 
parasHtars  hoto  raqurad  they  were  derived  to  yield  generally  acceptable 
floH/praasura/voluM  and  coapliance  characteristics  of  the  various 
cardiovascular  subdivisions.  In  particular,  data  frosi 

Burton,  Alan,  C.  Physiology  and  Biophysics  of  the  Circulation.  Year 
Book  M^ical  Publishers,  Inc.  Chicago,  IL  (1965) 


Guyton,  A.C.  Textbook  of  Medical  Physiology.  7th  Ed., 

W.S.  Saunders,  Philadelphia,  PA.  (1985). 

Tha  nodal  describes  tha  spatial  and  tMporal  variation  in  the  naan 
blood  praaaura  along  tha  s*axia  of  tha  body.  The  nodel  nagslects  the 
non-linaar  and  eonvactiva  tama  in  tha  Naviar-stokas  Equation.  Tha 
nodal  also  assunea  negligible  radial  flow.  The  flow  is  assunad  laninar 
except  in  tha  ascending  an  descending  aorta  uhara  fluid  flow  resis¬ 
tance  nultipliad  by  33  to  account  for  turbulent  prassura  losses. 

NOTE:  THE  SUBSCRIPT  NOTATION  INDICATES  PARTIAL  DERIVATIVE  URT  THE 
SUBSCRIPT  E.6.  Xt  THE  FIRST  PARTIAL  OF  X  URT  TIME 
IN  THIS  MODEL: 

t  >  Tina  Isac] 

r  *  Radius  of  vascular  ssgnsnt  W 
I  •  Length  of  vascular  aagnsnt  Dd 
rhoO  •  density  of  blood  Ik^n*3] 

nuO  a  viscosity  of  blood  0l-sac/n*2] 

MODEL  FOR  ARTERIAL  SEGMENTS 

Tha  follouing  sat  of  sinultaneous  aquations  are  solved  for  each 
arterial  vascular  aagnsnt. 

Pt(t)  •  1/C*(ain(t)  -  Qout(t))  >  R2*(Qtin  -Qtout) 

Ot(t)  ■  1/L*<Pin(t)  -  Pout(t)  ♦  PGz  -  R*Q(t)) 
rt(t)  ■  1/C2*Pi»r*l)*(Qin(t)  -  Qout(t)) 

Uhara, 

P  ■  Tha  prassura  in  tha  aagnsnt 
Q  ■  Tha  aagnantal  voluno  flow 
C  ■  Tha  capacitance  of  tha  aagnsnt 
L  ■  Tha  inartanca  of  tha  sagnant 
Ra  ■  Tha  viscous  flow  rasistanca  in  the  ssgnsnt 
PGz  >  Tha  hydrostatic  prassura  differanca 

across  tha  ssgnsnt  because  of  gravity 


(Pa) 

(n*3/sac] 

in*3/PaJ 

(kg/n^4]  or  [Pa-sec''2/BT'3] 
M. 

(Pa) 
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And,  the  folloulng  approxiMtions  for  Ra.  La,  and  Ca  ara  takan  froa 
a  papor  ^ 

Ridaout,  at  at.  Oiffaronca-Oifforanttat  Cquatiena  for  fluid 
Flow  In  Olatanalblo  Tuboa.  IEEE  Tranaactlona  on  Rlo*Nodlcal 
Enplnoarlna.  Vol  RME-U,  NO.  3,  pp  171-177.  Jul  1967. 

Ra  ■  81*«i0*l/<8*pl«r^4) 

La  »  9*rhoO*l^2/<4*VOL> 

Ca  ■  3»r*VOL*l/(2*E*h) 

Uhoro, 

.  E  •  Youno'a  aodulua  for  vaaaol  ualt  [Pa] 

h  ■  Vaaaol  Wall  thleknaaa  Dd. 

Finally, 

POz  ■  rtio0*6z*a0*l*coa(thata). 

Uboro, 

Gz  ■  Tha  z-axia  "G-lavol"  In  unita  of  oarth'a  gravity  [witloaa] 

gO  ■  Tho  oarth'a  gravitational  accoloration  (a/aac^2] 

thota  ■  Tho  angle  bottiaan  tho  aagaant  and  tho  z-axIa  Cradlana]. 


MODEL  FOR  VENOUS  SEGMENTS 

Tho  andol  for  voneua  aignanta  uaa  adapted  fr(M 

Snydar,  at  al.  Coaputor  Staulatlon  Studloa  of 
Vonoua  Circulation.  IEEE  Trane  Slo-Mad  Engr  Vol  SNE-16, 

NO.  4  pp  325-334.  Oct  1969. 

Tho  unatroaaod  Intomal  voluno  of  a  vaacular  aagaant  In  aatuaeri  to  bo 

V  «  Pl*r*2*l  0b*31. 

Whon  tho  contained  voIum,  v,  la  groatar  than  V,  tho  tranaaurol 
proaauro  la  aaauaad  to  be  rolatod  to  tho  contained  voluoo  by, 

dPuall  ■  1/C^. 

Uhoro  C  la  tho  vaacular  coagillanco  aa  defined  above.  For  v  <  V, 
dPuall  >  1/(20^)*v. 

In  a  collapaad  or  partially  eollapeod  vein  tho  flou-prosauro 
rolatlonahlp  baaed  on  an  (asaund)  elliptical  croaa-aoctlon 
and  la  given  by 

Qt  ■  1/Lv*<Pln<t)  -  Pout(t)  ♦  PGz  -  Rv^(t}} 

Uhoro, 

Lv  *  9*rho0*l'*2/<4*v),  and 

I  81*Pu0^r2*r4*r''2/<8*v^3>  for  v  <  V 
Rv  ■  i  or 

j  81*iouO*l/(8*pl*r*4)  for  v  >  or  ■  V 
I  or  81*iiu0*r3/(8*v-2)  ". 
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PCIIMfRAL  CAPILURY  KOS. 


Pcrlpharal  capUlary  rwUtanca  and  capaeftanca 
ara  aodaUad  aa  lui^  paraa»tar  aodala  ("T"  cfrcuUa) 
foUoHina  ttM  MtiMd  of  Jaron,  at  al  (eitad  abova). 


Ra  Rv 

Fa  o-/W\-|-/W\— o  Pv 

I 

—  Cparipharal 

I 

I 

Paxtamal  <ia  P  G-auft) 

I 

Praf  (Atanapharie) 


PUUKMARY  CIRCULATION 

Tha  pulaonary  circulation  ia  aodaltad  as  a  Itapad 
parsMtar  nodal  SGain  following  Jaron's  asthod.  The 
nodal  is  a  ■VI"  circuit  aa  shown  balow. 


Prtvant  Rpul 

.  Owr>--*->|*>-/\/\/\ . {  Plaft  atriui 

.  vanous  |  I 

.  return  —  Cpul  | 

-I-  I 

•  I  i 

Intra-Thoracic  Prasaura 


!  CARDIAC  CIROJUTION/aUTPUT 

a 

Tha  chanbara  of  the  heart  ara  nodellad  aa  variable  capacitances 
separated  by  one-way  valves.  Tha  pulnonic  and  aortic  valves  are 
also  nodellad  as  one-way  valves.  Tha  general  nethod  of  nodal  ling 
Tha  heart  and  its  circulation  follows  tha  nathod  of  Snyder  at  al. 
Output  flow  fron  tha  left  atriuo  and  left  vantricla  ara  nodellad 
as  sinpla  half-wave  rectified  sinusoids  whose  voIuk  flows  are 
estinatad  fron  pulnonary  venous  flow. 


!!  PRESSURE  REFERENCE 

Tha  pressure  rafaranca  for  tha  nodal  is  located  at  tha  tri -cuspid 
valva  which  prasuMbly  tracks  intrathoracic  pressure. 


!!  MODEL  MECNANICS 

For  each  vassal  sapsant,  three  coupled  non-linear  differential 
aquations  nust  be  solved  sinultaneously.  Thera  ara  20  vascular 
sagnants  (tha  pulnonary  circuit  is  sagnant  1).  Thera  are  10 
capillary  bad  sapaants  nodallad  aa  sinpla  resistance  and  coapliance 
circuits  which  are  affactad  directly  by  extra-vascular  pressure. 

The  pressures  and  flows  in  tha  various  sagnants  ara  coupled  by 
their  spatial  cormaetion.  Tha  following  table  gives  tha 
approxinata  anatonical  location  and  tha  corresponding  z-axis 
coordinate  (neasurad  fron  tha  tricuspid  valva)  for  each  sagnant. 

Tha  z-axis  coordinatas  wars  baaed  on  a  177  cn  tall  standing  nan. 
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AratMical 

Loeatlon 


ArtarUl 

Orisin 

Z*axis  Paripharal 

eoordliwt*  (ca)  tod 


1 

Nid*PulMnsry 

0 

X 

2 

Ascanding  Aorta 

0 

3 

Daacanding  Aorta 

5 

4 

Thoracic  Aorta/Vana  Cava 

•8 

X 

5 

Diaphraga/Louar  Lung 

-15 

6 

Ranal/Hapatic 

-22 

X 

7 

Splanchnic 

-32 

X 

8 

Buttocks 

-42 

X 

9 

FoMralis 

-50 

10 

Mid  Thigh 

-65 

X 

11 

Knaa/Poplataal 

-  80 

12 

Calf 

-100 

X 

13 

Ankla 

-125 

14 

Foot 

-132 

X 

15 

Aortic  Arch 

6 

16 

Lower  Nock 

15 

17 

Carotid  Sinus 

25 

18 

Ophthalnic 

34 

X 

19 

Mid  Brain 

37 

20 

Carabral 

42 

X 

Initial  Conditiona  (t  •  0) 

a  • 

Tha  initial  conditiona  for  praaaura,  flow,  and  voIum  ara 
aat  baaad  on  a  ataady-atata  aolution  for  tha  Mdal  at  1  Gz 
for  a  aMpina  poatura.  For  othar  poaturaa.  tha  initial  thata'a 
for  tha  lapaanta  ouat  ba  changad. 

a  a 

Poatural  and/or  Gz  changaa  durina  a  aiaulation. 

a  a 

Thia  can  ba  Mat  aaaily  acccapliahad  by  adding  tiM 
varying  profilaa  for  Gz  and  tha  thata'a  in  SIMOUTIME  DERV 
which  forna  tha  darivativaa  for  CVNOOEL. 

!!  THE  HIMERIOU.  METHOD  OF  LINES  (W.E.  SCHIESSER)  IS  ENPLOTEO  TO 
..  INTEGRATE  THE  COUPLED  DIFFERENTIAL  EQUATIONS  (DES). 

!!  ODE  COMMON 

/Y/  tiM  variablaa 

/F/  tiM  clarfvativaa  of  variablaa 

/R/  G  /!/  r^sal  and  intagar  paraMtara  raquirad  to  dafina  conatanta  and 
dss^lna  tha  apatial  intagrat ion  grid. 

IMPLICIT  DOUBLE  PRECISION  (A-H.  0-Z) 

PARAMETER  (IKQ  «  20,  NPSEG  ■  10) 

INTEGER  NSTOP,  NORUN,  IP 

INTEGER*2  ALIN,  ALOUT,  VLIN,  VLOUT,  PVS,  PIN,  POUT 
DOUBLE  PRECISION  MM2PA,  wO 

COMMON/T/  T,  NSTOP,  NORUN  I  Run  ParaMtara 

...  Arrays  for  aapMntal  variablaa  Praaaura  <P),  FloulO),  and  radii  (r) 

1  /Y/  HP(4).  HQ(4),  I  Hasrt'a  Chaabara  RA>1 

*  AP(NEO),  AQ(NEQ),  Ar(NEQ),  I  Arterial  P.  Q,  r 

*  VP(NEQ),  VO(NEO),  Vr(NEO),  I  Venous  P,  Q,  r 

*  VOP(3),  V00(3),  I  Venous  flows  into  heart 

*  PP(NEQ>,  PQ(NEQ),  I  Peripheral  P,  Qin,  Qout 

C  .  a  . 

C...  TiM  darivativaa  of  tha  sagnental  variables:  Pt,  Qt,  rt 
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r 


c... 


c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 


c. 

c. 

c. 


2 

/P/  HPt(4), 

HQtC4). 

* 

APtdM). 

AOt(HEG),  Art(NEO). 

• 

VPt(N80>, 

VOtdKO),  Vrt(HEQ), 

• 

VaPt(3), 

voat(3). 

• 

PPtdKO), 

POtfNEG), 

I  Heart's  CiMHbers  KAal 
I  Arterial  ft,  Qt,  rt 
i  VenoMa  Pt,  Ot,  rt 
I  Venous  flows  into  heart 
I  Mrtpheral  Pt,  QIMt,  QOUTt 


Paraswters  neceessry  to  fono  the  differential  equations 


Pi  -  3.U199... 

gO  •  9.80665  0sfaee*2]  earth's  aoealeration  of  gravity 

rhoO  *  1050.  tkg/a^S]  density  of  whole  blood  (4SX  Net)  j  AsstsMd 

■uO  ■  2.7  Icp]  viscosity  of  whole  blood  (45X  Hct)(  Constant 

D2R  *  pi/180  (radians/degree]  scale  factor 


3  n/  Pi.  gO.  rheO,  euO,  D2R.  MN2PA.  R2, 

ZAMNEQ),  2AT(IIE0).  ZVOdKO),  ZVT(IIEfl), 
THETA(NEft).  HCAPIA),  HVa(4).  HVR(4). 
ALOflOa).  ArtKMIQ),  Ae<NEQ).  Ah(NE9). 
ACAPCNia),  AtfSdlCO),  AIHUTdin). 

VLOCMEO),  VrO<NEQ),  VrlKNCO), 

VCAMKNCO),  VCAPdltQ).  VKUNCQ) 

PRAdKO).  PRVdKQ),  PCAPdKQ), 

PimTdKQ),  PVadCQ), 

MO<MIO>.  PVOdIN}, 

OAOdKO),  OVOfNia), 

AVQLdm),  WQLdtfQ), 

pcdciNm). 

TO.  GSTART.  GNAX,  TBHX1,  1811X2.  TNAX.  GPIN. 
GZ,  ADPG(NEQ).  VDPGdCQ)  I 

/!/  IP.  MOXPERfNPSCG),  I 

ALINdOO),  ALOUTdlEQ),  I 

VLINdCQ),  VLOUTdCQ).  I 


PINdKQ).  POUTdlfQ). 

PVfdOQ). 
iraonCG.  IHEAOSEG.  INEARTSCG 


I  constants 
I  Arterial  t  Vanous 
i  Oriantation  angle 
I  Arterial  1.  r,  E,  h 
I  Arterial  Capacitance,  resistance 
I  venous  1.  r.  rUMSTRESSEO 
VINERTdCQ).  I  Vanous  Capacitance,  resistance, 
I  peripheral  Ra,  Rv,  C 
peripheral  I,  V 
Initial  P  conditions 
Initial  0  conditions 
A  8  V  VOlUMS 

Externally  applied  Pressure 
I  G'Profile  paraneters 
GZ  8  Delta  P  froa  G 
Peripheral  Red  Indexes 
Link^  Data  arterial 
IMnous 


I  peripheral 


parallel  venous  segesnts 
Foot,  Head,  8  Heart  sag  nuas 


Note  that  artery  output  flow  feeds  artery  input  or  peripheral  bed 
input,  artery  input  coaes  only  froa  arteries  or  the  heart,  venous 
output  flows  to  veins  or  the  heart,  venous  input  coaes  froa  veins 
and/or  peripheral  beds,  peripheral  bads  are  fed  only  by  arteries,  and 
feed  only  veins.  The  index  (i)  for  an  osgaant  refers  to  its  input 
flow  and  pressure.  The  output  pressure  for  a  osgaont  is 
stored  in  P(ir1}  and  its  output  flow  is  stored  at  Q(ir1) 


Define  Sosa  Constants  and  Paraaeters 

Heart  valve  resistances 

DATA  HVR/  1.48D«6.  1.48D«6.  2.96D«6,  2.96IH6/ 

Heart  fhasfcer  eapscitancee 

DATA  NCAP/  2.250-7,  6.550-7,  1.120-7,  3.280-7/ 

Arterial  Segasnt  length  [aeters] 


DATA  ALO/  3.D-2, 

3.0-2, 

5.0-2, 

7.0-2, 

5.0-2, 

« 

12.0-2, 

10.0-2, 

8.0-2, 

15.0-2, 

20.0-2, 

* 

15.0-2, 

25.0-2, 

5.0-2, 

2.0-2, 

9.0-2. 

* 

10.0-2, 

9.0-2, 

3.0-2. 

4.0-2, 

1.0-2/ 

Arterial  Segasnt  radii  at  t  *  0  [asters] 
These  radii  are  based  on  flow  resistance 


inertance 


129 


€•  •  • 


MTA  ArU /6.00D-S,  1.00D-2.  1.000-2.  1.200-2.  1.000-2, 

•  A.00D-S.  5.500-3.  4.000-3.  3.500-3.  4.000-3, 

•  2.MD-S.  4.500-3.  2.750-3,  1.000-3.  A.OOO-3, 

•  3.000-3,  3.000-3.  3.000-3,  3.000-3.  1.500-3/ 

TImm  radii  art  baaad  on  capaeltanea  and  raalatma 
Voung'a  aodulua  for  artarlal  upaant  walla  (Pal 


OATA 

AO  /  2.50*5, 

5.00*5, 

5.00*5, 

7.00*5, 

7.00*5, 

• 

0.00*5, 

0.00*5, 

0.00*5, 

0.00*5, 

1.00*6, 

* 

1.00*6, 

1.00*6, 

1.00*6, 

1.00*6, 

0.00*5, 

Ca.a 

• 

0.00*5, 

0.00*5, 

0.00*5, 

0.00*5, 

0.00*5/ 

C.a. 

* 

Wall 

thieknaaa  for 

artarial 

aagoanta 

CMtaral 

MTA  Ah  / 

2.0-4, 

14.0-4,  14.0-4,  14.0-4, 

12.0-4, 

• 

12.0-4, 

10.0-4,  10.0-4,  0.0-4, 

0.0-4, 

0.0-4, 

4.0-4.  6.0-4,  5.0-4, 

5.0-4, 

• 

6.0-4, 

6.0-4.  4.0-4,  5.0-4, 

5.0-4/ 

Niabar  af  parallal 

vanoua  patha  in  aach  aaga 

ant 

OATA  py%/ 

1. 

^0  ^0  ^0  A,  2 

.  2, 

• 

2,  2, 

^0  ^0  2.  2,  4,  4,  4 

^aaa 

C...  vanoua  aaoBont  langth  Daataral 
C... 


OATA  VUO/  10.0-2.  2.0-2,  4.0-2,  10.0-2,  20.0-2, 

*  40.0-2,  40.0-2,  32.0-2,  30.0-2,  40.0-2, 

*  30.0-2,  40.0-2,  30.0-2,  0.0-2,  10.0-2, 

*  20.0-2,  36.0-2,  12.0-2,  14.0-2,  4.0-2/ 

C. . . 

C...  Initial  radii  for  Vanoua  lapaant  taatara] 

Ca  a  a 


OATA  VrU/  5.00-3, 

5.00-3, 

5.00-3. 

3.00-3, 

3.00-3, 

• 

3.00-3, 

3.00-3, 

3.250-3, 

3.00-3, 

3.50-3, 

• 

3.50-3, 

3.30-3, 

2.50-3, 

1.00-3, 

4.50-3, 

• 

4.00-3, 

4.00-3, 

3.30-3, 

3.00-3, 

2.00-3/ 

Vanoua  eapacitanca  [ar3/Pa] 


OATA  VCAPO/  5.00-7, 

5.000-0, 

1.000-7, 

5.000-7, 

5.00-7, 

5.00-7, 

5.000-7, 

4.000-7, 

3.000-7, 

2.50-7, 

3.00-7, 

5.000-7, 

5.000-0, 

5.000-9, 

2.00-7, 

5.00-7, 

0.000-7, 

1.000-7, 

1.000-7, 

3.00-0/ 

Paripharal  tagmt  Indieaa  (Thara  ara  10  poripharal  aaoMnts). 


OATA  NDXPCR  /  1,  3,  6,  7,  0,  10,  12.  14,  10,  20/ 
Poripharal  Vaocular  Capacitaneo  Dir3/Pa] 


C.. 

C.. 

C.. 

C.. 


OATA  PCAP/  1.130-7,  0.00000,  3.750-0,  O.CDOO,  0.00000, 

•  7.SOP-0,  1.130-7,  7.500-0,  0.0000,  3.750-0, 

!  3.750-0,  0.00000,  3.750-0,  0.00000, 

•  0.00000,  0.00000,  3.750-0,  0.00000,  3.750-0/ 

Paripharal  Vaacular  Raaiatanea  Artarial  aida  (Pa-aac/a*3] 
Aaaign  9.9099  to  sagaanta  with  no  paripharal  bad. 

OATA  PtA/  1.20O»7,  9.90099,  1.41fr»9,  9.99099,  9.90099, 

•  1.390*9,  3.440*0,  1.370*9,  9.90099,  1.340*9, 

!  2.100*9,  9.99099,  6.340*9,  9.99099, 

•  9.99099,  9.99099,  1.320*10,  9.99099,  6.670*0/ 

Paripharal  Vaacular  Raaiatanea  Vanoua  aida  CPa-aae/rr3I 
Aaaign  9.9099  to  aignnta  with  no  paripharal  bad. 
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c... 

DATA  MV/  1.3S0«6,  9.9«D99,  1.SAIK8.  9.99099.  9.99099, 

•  1.S4IK8.  3.SSD07,  1.S2D^.  9.99099,  1.4904«, 

9.99099,  2.A30M.  9.99099.  7.04046,  9.99099, 

9.99099,  9.99099,  1.46049.  9.99099,  7.42047/ 


Initialiw  utrMural  pratMir*  vaetor 


OATA  MXT/  0.0042.  0.0042,  0.0042. 

•  0.0042.  0.0042,  0.0042, 

•  0.0042,  0.0042,  0.0042, 

•  0.0042,  0.0042,  0.0042, 


0.0042.  0.0042, 
0.0042,  0.0042, 
0.0042,  0.0042, 
0.0042,  0.0042/ 


...  Sat  initial  floua  la^S/aae] 


Artarial  floua 


DATA 

AO/ 

8.970-5. 

9.000-5, 

9.000-5, 

6.500-5, 

6.500-5, 

« 

6.500-5, 

5.670-5, 

2.330-5, 

1.500-5, 

1.500-5, 

• 

6.670-6, 

6.670-6, 

1.670-6. 

1.670-6, 

1.670-6, 

* 

1.670-5, 

1.670-5, 

1.670-5, 

1.580-5. 

1.580-5/ 

a  a 

v< 

■nous 

floua 

OATA 

VO/ 

9.000-S. 

2.000-5. 

7.500-5, 

7.000-5, 

7.000-5, 

* 

6.500-5, 

6.500-5, 

2.330-5, 

1.000-5, 

1.100-5, 

• 

4.700-6, 

7.500-6. 

4.500-6, 

1.670-6, 

1.670-5, 

* 

1.670-5, 

1.670-5, 

1.670-5, 

1.580-5, 

1.580-5/ 

...  VanouB  output  floua  into  haart 
DATA  voa/  9.00-5,  1.70-5,  7.30-5/ 

•  0  • 

...  Paripharal  floua 


DATA  M  / 

8.970-5, 

0.00000, 

8.330-6, 

0.00000, 

0.00000, 

8.330-6, 

3.330-5, 

8.330-6, 

0.00000, 

8.330-6, 

• 

0.00000, 

5.000-6, 

0.00000, 

1.670-6, 

0.00000, 

• 

0.00000, 

0.00000, 

8.330-7, 

0.00000, 

1.580-5/ 

...  Initial  Naart  Ficus 

OATA  NO  / 

8.970-5, 

8.970-5, 

8.970-5, 

8.970-5/ 

a  • 

..  Tha  follouing  arrays  coda  tha  llnkaga  batuaon  vascular  iigints 
..  Each  saoMnt  link  alsaant  contains  tha  indax  of  tha  naxt  sagaant 
..  in  tha  cardiovascular  traa.  For  aiaapla,  ALIN(3)  ■  4,  uhich 
..  Boana  artarial  sssaant  3  faads  artarial  ispwnt  4.  Tsjaint  -1  codas 
..  for  tanainal  paripharal  bads  for  artarias  and  for  tha  haart  for  vains. 

!.  SEOMENT  A1  A2  A3  A4  AS  A6  A7  A8  A9  A10  All  A12  A13  A14 


OATA  AL1N/-1,  3.  4,  5.  6.  7,  8,  9,10,  11,  12,  13,  14,  -1, 
!!.  ttONEMT  A15  A16  A17  A18  A19  A20 


16,  17,  18,  19,  20,  -1/ 


...  SEOMENT  VI  V2  V3  V4  V5  V6  V7  V8  V9  V10  V11  V12  V13  V14 
OATA  VLIN/-1,  -1,  -1,  3,  4,  5,  6,  7,  8,  9,  10,  11,  12,  13, 

C... 
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..  mMUT  VIS  VI*  V17  VIS  V19  V20 

920 

•  2.  15.  1*.  17.  18.  19/ 

..  Nrlptwrvl  tapant  Linkav*.  9IM  apaeiflM  tiM  input  mutm  for  tho 
..  MfMm  Mkidi  lo  only  froa  ortoriao.  NUT  tpaeifloo  ttio  output  sogaant 
..  Mkleh  it  only  t*  vtint.  "0*  atant  thara  ia  no  parlphoral  upaanT  for  tho 
..  aasMnt  nufear.  Seta  that  tha  praaaura  at  tha  inlat  of  tha  parlphoral 
...  aapwnt  ia  at  *9<9IS(i)  *  1> 

!!.  SSMDIT  PI  92  9S  M  PS  N  97  M  99  910  911  912  913  9U 

DATA  PIS  /  0.  0.  3.  0.  0.  6.  7.  8,  0.  10.  0.  12.  0.  0. 

!!!  StONKST  915  91*  917  918  919  920 

0.  0.  0.  18.  0.  0/ 

!.  SCGSCST  91  92  93  94  9S  M  97  M  99  910  911  912  913  914 

DATA  POUT/  1.  0.  3.  0,  0.  «.  7.  8.  0.  10.  0.  12.  0.  0. 

!!  KGMEST  915  91*  917  918  919  920 

**  *  0.  0.  0.  18.  0.  0/ 

o  a 

..  Z*axia  poaitiona  raiativa  to  tricuapid  valva  for 
tha  oripin  of  tha  artarial  aapaant  M 

DATA  2*0/  0.000.  0.000.  5.0-2.  -8.0-2.  -15.0-2. 

•  -20.0-2.  -32.0-2.  -42.0-2.  -50.0-2.  -45.0-2. 

•  -85.0-2.-100.0-2.-125.0-2,-130.0-2.  *.0-2, 

•  15.0-2,  25.0-2,  34.0-2.  37.0-2,  41.0-2/ 

a  a  a 

...  2-axit  poaitiant  ralativa  ta  tricuapid  valva  for 
...  tha  tanaination  of  tha  artarial  tagiwnt  M. 

OATA  2AT/  3.0-2,  1.50-2.  0.000,  -15.0-2.  -20.0-2, 

•  -32.0-2,  -42.0-2,  -50.0-2,  -*5.0-2,  -85.0-2. 

•  -100.0-2,-125.0-2.-130.0-2.-132.0-2.  15.0-2, 

•  25.0-2,  34.0-2,  37.0-2,  41.0-2.  42.0-2/ 

a  a  a 

...  2-axia  poaitiona  ralativa  ta  tricuapid  valva  for 
. . .  tha  origin  of  tha  vanoua  aagaant  Od . 

OATA  ZVO/  3.00-2,1.50-2,  -1.50-2,  -15.0-2,  -20.0-2, 

•  -32.0-2,  -42.0-2,  -50.0-2,  -45.0-2,  -85.0-2, 

•  -100.0-2,-125.0-2,-130.0-2.-132.0-2,  15.0-2, 

•  25.0-2,  34.0-2,  37.0-2,  41.0-2,  42.0-2/ 

a  a  a 

...  Z-axia  paaitiana  ralativa  ta  tricuapid  valva  for 
...  the  tanainatian  of  tha  vanoua  sagaant  Od. 

OATA  ZVT/  0.000,  0.0000,  0.0000,-1.50-2,  -15.0-2, 

•  -20.0-2,  -32.0-2,  -42.0-2,  -50.0-2,  -45.0-2, 

•  -85.0-2.-100.0-2,-125.0-2.-130.0-2,  1.50-2, 

•  15.0-2,  25.0-2,  34.0-2,  37.0-2,  41.0-2/ 

...  Initial  eriantatiana  (dagraaa)  af  x-axia  projacticn  of  vaacular 
...  aagaantt.  Artarial  and  vanaua  aaauaad  to  ba  at  tha  saaa  orientation. 


OATA  THCTA/  0.00,  0.00, 

0.00, 

0.00, 

0.00, 

• 

0.00,  0.00, 

0.00, 

0.00, 

0.00, 

• 

0.00,  0.00, 

0.00, 

0.00, 

0.00, 

• 

0.00,  0.00, 

0.00, 

0.00, 

0.00/ 

0«f1nt  to 

aa  phyaical  canetanta 
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c 


c.. 

c.. 

c.. 

c.. 

c.. 

c.. 

c.. 

c.. 

c.. 

c.. 

c.. 


Pi 

■  OAOOS(-I.OOO) 

1  pi 

gO 

« o.aoMsoo 

1  ■/sae‘‘2  -  aarth's  gravity 

rhoO 

>  1050.000 

1  kg/a*3  •  danaity  of  aholo  blood 

auO 

-  2.700-3 

1  N-sae/ar2  -  fluid  viaeoaity 

02R 

•  Pi/100.00 

1  seals  fron  dagraas  to  radians 

NN2PA 

-  1.0132505/760.00 

{  seals  fron  ndig  to  Paaeals 

St 

«  0.00 

1  Initial  02  ■  0 

R2 

-  0.00200 

1  Jaron'a  nail  anargy  tarn 

INITIAL  CONDITIONS  (T  «  0) 


Th«  prMSum  art  Mt  aMiaiins  a  proiM  poatura  ia  tranavaraa  gO. 
Ttia  initial  praaauraa  ara  aaaignad  by  linaarly  intarpoiatinD 
praaauraa  fra*  tha  faet  ta  tba  haart  and  fro*  ttia  haart  to  tha 
earabral  aagaant.  Tha  aaan  artarial  praaaura  ia  iiifart 
to  ba  100  HNp  at  tha  haart  and  95  an  Ng  at  both  tha  foot  and 
earabral  sapoMita.  Tha  vanom  praaaura  is  stiunsd  to  ba  2  aMg 
at  tha  haart  and  5  anHg  at  both  tha  foot  and  earabral  sagnants. 

OAFOOT  ■  95.00*MN2PA 
PANiAD  >  95.I)0*NN2PA 
IKOTSifi  >  U 
INSAOStO  •  20 
IHIAKTSfC  >  1 
PUTNN  >  PtXTd) 

NP(1)  >  PRATM  ♦  NN2PA 
N0P1  >  2.DO*NN2PA 
PRVtRT  •  NP(1)  *  NDP1 
NP<2)  >  PRiffNT 
NDP2  •  11.D010I2PA 
PUTNN  •  4.00*MaPA 
NP(3)  •  PUTIN 
NDPS  «  A.0(mM2PA 
PlViNT  •  HP<S)  ♦  NDPS 
HP(A>  •  PLvnr 
HDPA  •  92.D0*NN2PA 

G'Profila  paranatars 

TO  •  0.00 
SSTANT  •  O.DO 
«NW  -  S.OO 
TNAX  >  55.00 
TMKI  >  5.00 
T0RX2  >  40.00 
SPIN  ■  3.00 
i  >  1 

00  UNIU  (i  .Lf ,  NEO) 

THCTAd)  •  TIKTA(i)«02R 
I  -  i  ♦  1 
END  DO 
i  >  1 

DO  UNIU  (i  .U.  NEQ) 

SCAUP  *1.00 

IP(  i  .U.  5  .OR.  i  .ES.  15  )  SCALEP  -  33.00 
ARESd)  ■  11.OO*au0*ALO<i)/(S.OO^i*ArU(i}**4)*SCM.EP 
OPVS  •  ORUfPVSd)) 

Vrd)  •  0NW1<Vr<i>.  1.33D0^rtJ(i)) 

VRESd)  >  S1.0O*au0*(VL0d)/OPVS)/(8.00*Pi«Vrd)**4) 
i  •  i  ♦  1 
END  00 

APd>  -  NP<2)  ♦  NDP2  ♦  2.D0*NN2PA 
AP(2)  >  HP<4}  ♦  NDP4  ♦  2.00*NN2PA 
i  -  3 


I  Right  Atrial  Praaaura 
I  Inlat  Praaaura  to  Right  Atriua 
I  Ineroaao  in  right  atrial  praaaura 
I  Inlat  Praaaura  to  Right  Vontrieular 

I  Ineroaao  in  right  aantrieular  praaaura 
I  Laft  Atrial  Praaaura 
I  Laft  Atrial  Inlat  Praaaura 
I 

I  Laft  Vantrieular  Praaaura 
I  Inlat  Praaaura  to  LV 
I  Ineraosa  in  LV  Praaaura 
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00  uMiu  (  1  .11.  iraomo) 

«»(t)  >  •  MKf-1>*AMS(<'1) 

>  ♦  r(MO^*80«(ZM(i)-ZAT(i))*OCOS(mTA(i)) 

I  •  <  >  1 


END  DO 

AO(IS)  •  AP(3) 
i  •  16 

OO  UNILC  (  i  .LE.  IHCMSCC) 

ATd)  ■  AO(i-l)  -  Aa<i-1)*MIES(<<1) 

'  >  rlMO^*gO*(2AO(i)-ZAT(i))*OCOS(THETA«)) 

I  •  1  ♦  1 
END  00 


...  Set  the  Initial  radii  and  arterial  capacitance 


I  «  1 

OO  WHILE  (I  .LE.  NEQ) 
dPuall  •  AP(I) 

daltaR  >  7.S0-1*dPMall*ArU<l)**2/(AE(i)*Ah(i)) 

Ar(i)  «  ArU(l)  *  daltaR 

ACAP(I)  ■  3.00^1*Ar(l}**S*ALO(l)/(2.00*AE(l>*Ah(i)) 
daltaR  -  dPiMll*ACAP<l)/(2.00^l*Ar(l>*AL0<l» 

Ar(i>  ■  ArU(i)  «  daltaR 
AVOLd)  ■  PI*Ar(i)**2*AL0<{) 

I  •  I  ♦  1 
EHO  DO 

a  a  a 

...  Initial  Vanoua  Praaauraa 

V0P<2)  ■  HP(1) 

VQP(3)  •  NP<1) 

VP(1)  ■  HP<3)  *  VQ(1)*VRES(1) 

•  -  rhoO*Gz*90*(ZVO(1)  -  ZVT(1)}*OCOS(THETA(1)} 

VP(2)  «  VQP(2)  ♦  va(2)*VIIES<2} 

•  •  rlMO*Gz*flO*(ZVO(2)  -  ZVT(2}}*OCOS(THETA(2)) 

WP<3)  ■  W0P<3)  ♦  V0(3)*VRES(3) 

•  -  riiQO^z*gO*(2VO(3)  -  ZVr(3))*OCOS(THETA(3)) 

I  a  4 

00  WHILE  (  I  .LE.  IFOOTSEG) 

VP<i)  ■  VR<i-1)  ♦  V«(i)*VRES(i) 

•  -  riioO*Gz*oe*(ZVO(i)  -  ZVT(i)}*OCOS(THETA(i)} 

I  «  I  ♦  1 

EHO  DO 

VP<15)  -  VP<2)  ♦  V0(15)«VRES(1S) 

•  -  rlraO*Gz*90*(ZVa<15)  •  ZVT(15))«OCOS(TICTA(15)) 
i  >  16 

00  WHILE  (  I  .LE.  IHEADSEG) 

VP<i)  a  VPd-l)  ♦  VQ(i}*VKS(i) 

•  -  rtNQ^z*flO*(ZVO(i)  -  ZVT(i)}*DCOS<THETA(i)) 

I  a  f  ♦  1 

EHO  00 

a  a  a 

...  Coaputa  the  initial  raaistancaa 
i  a  1 

00  WHILE  (i  .LE.  HEO) 

VCAP(i)  a  VCAPOCi) 
dPwall  a  VP(i)  •  PEXT(i) 

daltaR  a  dPMall*VCAP(i)/(2.00«Pi*VrU(i)*VL0<i)) 

Vr(i)  a  vrlKi)  *  daltaR 

daltaR  a  dPiiall*VCAP(i>/(2.D0^i*Vr(i)*VL0<i)) 

Vr(i)  a  VrU(t)  ♦  daltaR 
WVOLli)  a  Piavr(i)**2m0(i) 

I  a  i  ♦  1 
EHO  DO 


C... 

C...  Initial  Heart  floua 
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c... 

MQ(1)  •  9.0*5 
INKX)  >  9.0*5 
00(3)  >  9.0*5 
HQ(4)  >  9.0*5 


S«t  initial  Paripharal  Praasuraa 

PP<t)  •  PQ(1)*MU(1)  ♦  V0{1>*MIV<1)  ♦  VP<1) 
i  •  3 

00  IMiLE  (  i  .LE.  NEO) 

IF(  PIN(i)  .6T.  0  >  THEN 
P9<i)  »  AP<i4l> 

END  IF 
i  ■  i  ♦  1 
ENO  00 

P9<U)  >  PQ(U)*9M(U}  ♦  VQ(U)*9EV(U)  «  VP(U) 

PP(20)  «  PQ(20}*PHA(20)  VO(20)*9tV<20)  >  V9(20) 

Call  OEEV  to  aat  initial  darivativaa  **  loop  to  atabiliza  darivativoa 

i  ■  t 

DO  IMILE  (i  .LE.  100) 

CALL  OEEV 
i  ■  i  ♦  1 
ENO  00 
IP«0 
EETUEN 
ENO 

SUOEOUTIHE  OEEV 

!*.  OEEV  CALOIUTES  THE  TINE  OEEIVATIVES  TO  BE  INTEGEATEO  BY  HKF45 

!!  ODE  CONNQN 

m  tiat  variabloa 

/F/  tiaa  darivativaa  of  variabloa 

m  apatial  darivativaa  of  variabloa 

/E/  B  /!/  roal  and  intagar  poraaatara  roquirad  to  dofina  conatanta  and 
dafino  tha  apatial  intogration  grid. 

INPLICIT  DOUBLE  PEECISION  (A*H,  0*Z) 

PAEANETEE  <IMQ  -  20,  NPSE6  •  10) 

INTEGEE  NSTOP,  NOEUN,  IP 

INTEGEE*^  ALIN,  ALOUT,  VLIN,  VLOUT,  PVS,  PIN,  POUT 
DOUBLE  PEECISION  NN2PA,  ndO 

CONNON/T/  T,  NSTOP,  NOEUN  I  Eun  ParaMtara 

...  Arrsya  for  aagaantal  variabloa  Praaaura  (P),  FloiKO),  and  radii  (r) 


1 

m  HP<4), 

HQ(4), 

1  Haart'a  Chaabera  EAbI 

* 

AP(NEO), 

AOCNEO), 

Ar(NEQ), 

1  Artarial  P,  0,  r 

* 

vp(Nn), 

VQ(NEQ), 

Vr<NEQ), 

i  Vonoua  P,  0,  r 

* 

V0P<3), 

900(3), 

1  Vonotia  floMo  into  haart 

• 

pp(NEa), 

Pa(NEO), 

!  Paripharal  P,  Qin,  Qout 

TiM  darivativaa  of  tha  aigaantal  variabloa:  Pt,  Qt,  rt 

2 

/F/  NPt(4), 

HQt(4), 

I  Haart'a  Chaabara  EA>1 

• 

APtfNEQ), 

AOtdMQ), 

ArtfNEO), 

1  Artarial  Pt,  Ot,  rt 

* 

VPtCNEQ), 

VQt(lffiQ), 

Vrt(NEQ), 

1  Vonoua  Pt,  Qt,  rt 

V0Pt<3), 

V00t(3), 

1  Vonoua  flow  into  haart 

• 

PPt(NEQ), 

PQt(NEQ), 

1  Paripharal  Pt,  QINt,  QOUTt 

...  ParaMtara  nacaaaary  to  fora  tha  diffvr  mtial  aquationa 
!!!  Pi  *  3.U159... 
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9.80665  Mrth's  aecalaration  of  cavity 

10M.  tkO/M^S]  donoity  of  Mholo  blood  (45X  Hot)  j  Anuwd 

2.7  (epl  viteooity  of  uholo  blood  (4SX  Met)',  Conotant 

pi/iaO  Cradfana/dagraa]  seala  factor 


PI.  9O,  rhoO.  MUO,  028.  MN2PA.  82. 
2AO(MEO).  ZAT(NEQ).  ZVOfNEQ).  ZVT(IIEa). 
THCTA(NEfi).  NCAP(4).  HV0L(4).  HV8(4). 
ALO(IIEQ).  ArUlHEQ).  AElt^Q).  AhldCQ). 
ACAP(HN).  A8eS(NEa).  AIMC8T(8Ea). 
VLOIMEQ),  VrO(NEQ),  VrUlMEQ). 


I  Conatanta 
I  Artarlal  C  Vanoua 


I  Oriantation  angle 


ALO(IIEQ).  ArUlHEQ).  AElt^Q).  AhldCQ).  I  Artarlal  1.  r.  E.  h 
ACAP(HEO).  AEESINEQ).  AIMEETIHEQ).  I  Artarlal  Capacitanca.  raaistanca 

VLOIMEQ),  VrO(NEQ),  VrUlMEQ).  i  VanouB  1.  r.  rUNSTBESSEO 

VCAPO(NEO).  VCAP(NM).  V8E8(NEO).  VINEETINEO).  I  Vanoua  Capacftanca.  raaiatanca.  inertance 

P8A(NEO>,  P8V(MEQ).  PCAP(8EQ).  I  Porlpharal  Ra,  Rv.  C 

PIIIERT(NEQ).  PVQL(IIEa),  I  Porlpbaral  I.  V 

PAOdCQ).  PVO(ieQ).  I  Initial  P  conditiona 

OAOINEQ).  OVOfNEO).  I  Initial  0  conditiona 

AVOLINEO}.  VVX(NEQ).  I  A  8  V  VolUMa 

PEXT(IIEO).  I  Extamally  appliad  Praatura 

TO.  GSTART.  GMAX.  TBRK1.  TBRK2,  TtMX.  GFIN.  I  6-Profila  parMaatora 

Gz.  ADPGINEQ).  VDPGfNEO)  I  Gz  8  Oalta  P  froa  G 


4  /I/  IP.  NOXPER(NP8E6). 

*  ALIN(MEQ).  ALOUTINEQ). 

*  VLIN(HEQ).  VLOUTCNEG). 

*  PIN(ilEO).  POUT(NGO). 

*  PVSINEQ) 

*  1F00TSE6*.  IMEAOSEG.  IHEARTSEG 
OINENSIQN  PQOUT(MEO) 

C... 

C...  Right  Haart 

C  a 

PRATRM  «  PEXT(I)  I  Right  At 

HP(1)  •  PRATRM  *  NN2PA  I  Inlat  Pr 

H0P1  •  1.D0*MN2PA  I  Incraaaa 

PtVCMT  ■  HP<1)  ♦  HOPt  I  Inlat  Pr 

HP(2)  >  PRVENT 

N0P2  a  11.00*MN2PA  I  Incraaaa 

PINTHO  >  -1.000  •ig<2PA  I  Intra-th 

preaaura  for  tha  pulaonary  bod 
C... 

C. . .  Loft  Haart 


I  Paripharal  Rad  Indaxaa 
I  Linkaga  Data  artarial 
I  Vanoua 
I  Paripharal 

I  Huata^  parallal  vanoua  aagnanta 
I  Foot.  Haad,  8  Haart  aag  nun 


I  Right  Atrial  Praoaura 
i  Inlat  Praaaura  to  Right  Atriuo 
I  Incraaaa  in  right  atrial  praoaura 
I  Inlat  Praaaura  to  Right  Vantrieular 

I  Incraaaa  in  right  ventricular  praaaura 
I  Intra-thoracic  Praaaura 


I  Extranural 


PLATRM  •  4.00*MM2PA 

HP(3>  >  PLATRM 
H0P3  •  4.00*MN2PA 
PLVENT  >  HP<3)  *  M^3 
HP(4)  «  PLVENT 
H0P4  >  92.D0«MM2PA 


I  Laft  Atrial  Preaaura 
I  Laft  Atrial  Inlat  Praaaura 
I 

I  Laft  Ventricular  Praaaura 
I  Inlat  Praaaura  to  LV 
I  Incraaaa  in  LV  Praaaura 


Enaura  praaauraa  are  not  laaa  than  axtamal  proaauraa 
i  ■  1 

DO  WHILE  (  1  .LE.  NED  ) 

IF  (VQ({)  .LT.  0.00)  THEN 

VQ(i)  ■  0.00  I  Vanoua  valvaa 
vat({)  a  0.00  I  as>  ravarse  flow  NOT  ALLOWED 
END  IF 
i  a  1  ♦  1 
END  DO 
I  a  1 

DO  WHILE  (i  .LE.  3) 

VOO(i)  a  OMAXKVOOd).  0.00) 

i  a  f  ♦  1 

END  00 

AQ(1)  a  ONAXKAOd).  0.00)  I  No  ravaraa  flow  into  tha  haart 
Aa(2)  a  DNAX1(Aa(2).  0.00)  I  froai  artariaa  or  out  of  tha  haart 
HQd)  a  ONAXKHQd).  0.00)  I  into  vaina 
HQ(3)  a  DNAX1(HQ(3).  0.00) 
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c... 

c... 


c. 

c. 

c. 


c... 


c... 

c... 


c... 


c... 


c... 


c... 


c 


c.. 

c.. 

c.. 


c... 

c... 


c... 


c... 


c... 


c... 


S«t  tM  Hawt  Icvtl  6  l«v«t 

CALL  rMM(T0,aSTART.aNAX,TIMX.TMK1.TMK2,GFIH.T.C2) 

Stt  paripiMrAl  1nl«t  ptmautm  to  the  afiptopriato 
■rtorfol  outlet  prooturos 

^•3 

00  WHILE  (  i  .LE.  HEO) 

IF(  PIHd)  .6T.  0  )  THEH 
PECO  ■  AP<I*1) 

PPt(l)  ■  APt(i>1) 

EHD  IF 
<  •  i  «  1 
EHD  DO 

reolotonco.  eapoeltaneo  and  inartanca  tor  tha  artarial  segmantt 

APdS)  >  AP(3) 

I  ■  1 

DO  WHILE  <f  .LE.  HEQ) 

IF  (  AP(I)  .LE.  PEXT(i)  >  TffiH 

Ar(I)  *  ArU(i)  !  It  artarial  praasura  is  balou  axtarnal 
EDO  IF  I  praasura  sat  radius  to  ■iniasM  (unstrasaad). 

rational iaa  prassura,  radius,  and  capacitanca. 

dPuall  ■  OMAXKAPd)  -  PCXT(i),  0.00) 

ACAP(i)  ■  3.00^i*Ar(i}*^*AL0(i)/(2.00*AE(i}*Ah(i)> 
delta*  ■  dPuall*ACAP(i)/(2.DO*Pi*Ar(i)*ALO({)) 

Ar(i)  >  ArU(i)  4  delta* 

AVOL(i)  ■  Pi*Ar(i)**2*AL0(i) 

SCALEF  >  1.00 

IF(  i  .LE.  5  .0*.  i  .EQ.  15  )  SCALEF  >  33.00 
AIES(I)  ■  81.00*asiO*ALO<1)/(8.00^i*Ar(i)**4)nCALEF 
AIHUTd)  a  9.00*rtlo0*AL0(i}**2/<4.00*AV0L<i)) 

A0M<f)  ■  riMO*Qz*gO*(2AO<i)  •  ZAT(i))*OCOS(THETA(i» 
i  a  i  ♦  1 
EHD  00 

Vanoua  rasiatanea,  capacitanca  and  inartanca  tor  tha  venous  aagawiits 
i  a  1 

DO  WHILE  (i  .LE.  HEO) 

dPwall  a  ONAXKVPO)  -  PEXT<i),0.00> 

Vnaax  a  1.414214*VrU<i) 

Vr(I)  a  ONAXKVrd),  VrOCD) 

Vr<l)  a  ONIHKVrd),  vnaax) 

OPVS  a  0BU(PV8d)) 
wad)  a  Pi*Vrd}**2*VL0d) 

VIESd)  a  81.00*lHUO*(VLOd)/DPVS)/(8.00*Pi*Vrd>*a4) 

VIHERTd)  a  9.00*rlM0*VL0d)*«2/(4.00*VVa(i)} 

VOPOd)  a  rhoO^*gO*(2VO<f)  •  ZVTd))*OCOS(THETA(i}) 

i  a  i  ♦  1 

EHD  DO 

CAPL  a  1.0-2  I  Capillary  Lei«th 
i  a  1 

DO  WHILE(  i  .LE.  HPSEG) 
j  a  HDXPCR(i) 

dPuall  a  dHAXUPP(J)  -  PEXTIJ),  NN2PA)  I  Hin  pressure  1  iiaMg 
PVa(j)  a  PCAPlj)  *  dPuall 

i  a  i  ♦  1 

EHD  DO 

Define  the  diftarantisl  aquationa  describing  prassura,  tlou,  and 
radius 

Pt<t)  a  1/C*(Oin<t}  -  Qout(t))  ♦  R2/C*(Qtin(t}-  Qtout(t)) 

Qttt)  a  1/L«(pfn(t>  -  Pout(t)  ♦  PG2  -  Paxt  -  R*Q(t)} 
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rt<t)  •  1/<2^!*r*l)*<Qln(t)  -  aout(t)) 


Infou  to  tho  right  otriuo  HQ(1)  >  V0Q(2)  ♦  V0Q(3) 

IF  (V0<2)  .LE.  0.00)  VP(2)  >  HP(1) 

V0at(2)  •  1.D0/VINEIIT(2)*(VP(2}  -  HP(1)  ♦  VDP6(2>  I  Outflow  froa  tho  Stsorior  V.C. 

•  VIIEt(2)*V0Q(2}) 

IF  (V0(3)  .LE.  O.DO)  VP(3)  «  HP<1) 

V0Qt(3)  >  1.M/V1IIERT(3)*(VP(3)  •  HP(1)  ♦  VDP6(3)  i  Outflow  from  tho  Inferior  V.C. 

•  VRES(3)*VOa(3)) 

HQt(l)  ■  V0Qt(2)  V0Qt(3) 

HQ(1)  -  M»(2}  *  V00(3) 


...  Right  Atriui  [Heart  Segaant  1] 

HQ2  -  HQ(1)  -  HQ(2) 

HQ2t  -  HOt(l)  •  HQt(2) 

NR2  ■  2.0-5/HCAP(1) 

HPtd)  «  HQ2t*NR2  ♦  HQ2/HCAP(1} 

NPt(l)  -  0.00 
HPt(2}  -  O.DO 

IM(2}  >  (HP(1)  ♦  H0P1  *  NN2PA  •  HP(2))/HVR(1) 
HQt(2)  a  (HPt(l)  -  HPt(2))/HVR(1) 
i»t(2)  a  HBtd) 

H0(2)  a  HQ<1) 

...  Right  Ventri«ie  (Heart  Segaent  2] 

HQ2  a  HQ(2)  •  AOd) 

Hg2t  a  H0t(2)  -  AOtd) 

HR2  a  2.0*S/HCAP(2) 

HPt(2}  a  HQ2t*HR2  *  HQ2/HCAP(2) 

HPt(2}  a  0.00 

Pulaonory  Circulation 

..  Pulaonory  Artery  (Arterial  Segaent  1] 

A02  a  AOd)  •  PQd) 

AQ2t  a  AOtd)  •  PQtd) 

AR2  a  R2/ACAPd} 

APtd)  a  AQ2t*AR2  AQ2/ACAPd) 

APtd)  a  O.DO 

ArtCl)  a  1.D0/(2.00*Pi*Ard)*AL0d))*Aa2 
Artd)  a  0.00 

AOd)  a  (HP(2)  *  HDP2  *  2.D0*MN2PA  •  APd))/HVR(2) 
AOtd)  a  (HPt(2)  -  APtd))/HVR(2) 

AOd)  a  H0(2) 

...  Pulaonory  Capillary  Bed  (Peripheral  Segaent  1] 

POtd)  a  1.00/AIIIERTd)*(APd)  -  PPd)  ♦  ADPCd) 

*  -  ARESd)*PQd)) 

PQ2  a  PQd)  .  VOd) 

PPtd)  a  PRAd)«POtd)  *  PQ2/PCAPd) 

...  Pulaonary  Voina 

votd)  a  (PPtd)  -  vptd)  -  pQtd)*PRAd))/PRvd) 
VQ2  a  vod)  •  HQ(3) 
va2t  a  votd)  -  HQt(3) 

VR2  a  R2/VCAPd) 

VPtd)  a  VS2t*VR2  *  VQ2/VCAPd) 

Vrtd)  a  1.00/(2.00^i*Vrd)*VL0d))*VO2 
Vrtd)  a  0.00 

...  Left  Atriua  (Heart  Segaent  31 
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IWt(3)  ■  1.00/VIIIHtT(1)*(VP(1)  -  HP(3>  *  VDPG(1) 

•  -  M(3)*VRtS(1)) 

VOQtd)  >  Mt(3) 

HQ2  •  HQ(3)  *  NQ(4) 
mzt  >  mt(3)  •  HQt(4) 

MI2  >  2.D-5/HCAP<3) 

lif>t(3)  ■  ltQ2t*ltt2  NQ2/HCAP(3) 

HPt(3)  ■  O.DO 

...  L*ft  Vantriclt  [Heart  Sagaant  4] 

HQ(4)  ■  (HP(3)  *  H0P3  ♦  2.D0«MM2PA  •  HP(4))/HVR(3) 

HQ(4)  -  HQ(3) 

HQt(4)  ■  (NPt(3}  •  HPt(4))/IIVR(3) 

NQt<4)  -  IMt(3) 

HQ2  >  H0(4)  •  M(2) 

HQ2t  •  H0t(4)  -  AQt(2) 

HM  «  2.D*5/ACAP(4) 

HPt(4)  •  HQ2t*l«2  *  HQ2/HCAP(4) 

HPt(4)  ■  0.00 

...  Atcanding  Aortic  artary  [Artarlal  Sagaant  21 

AQ(2)  «  (HP(4)  *  HDP4  ♦  2.00*MN2PA  -  AP(2))/HVR(4) 

AQtai  «  (NPt(4)  •  APt(2))/HVR(4) 

AQ2  «  Afl(2)  •  A0(3)  •  A0(15) 

Afl2t  a  Aat(2>  •  AQt(3)  -  AQtdS) 

AR2  a  R2/ACAP(2) 

APt(2>  a  A02t*AR2  *  kO/kUiPiZ'i 
APt(2)  a  0.00 

Art(2)  a  I.OO/(2.OO^I*Ar(2)*AL0(2))*AQ2 
Art(2)  a  0.00 

a  a  a 

...  Oaaeanding  Aorta  [Artarlal  Sagaant  3] 

A0t(3)  a  1.00/AIIU»T(2>*(AP(2)  •  AP(3) 

•  «  ADP0(2)  •  AI(ES(2}*<Aa(3)  *  AOdS)))  •  AOtdS) 

A02  a  Aa(3)  .  M(«)  .  PQ(3) 

Aia2t  a  A0t<3)  •  A0t(4)  •  Pat(3) 

AR2  a  R2/ACAP<S) 

Al»t(3)  a  A02t*AR2  ♦  Aa2/ACAP(3) 

AOt(4)  a  1.00/AIIIERT(3)*(AP(S)  •  AP(4)  +  A0PG(3) 

•  -  ARet<3)*(Aa(4}  «  pa(3)))  •  pat(3) 

Art<3)  a  1.DO/(2.OO^I*Ar<3)*AL0(3))*Aa2 
Art(3)  a  0.00 

..  Fora  tha  darivativaa  for  tha  otlwr  artarlal  aagaanta  balow  tha  heart. 

..  Thoracic  and  Cardiac  [Artarlal  Sagaant  4] 

A02  a  a0(4)  -  AO(5) 

A02t  a  Aat(4)  •  Aat(S) 

AU  a  R2/ACAP<4) 

APt(4)  a  1.0Q/ACAP<4}*AlQ2  *  AII2*Aa2t 
AAt(S)  a  1.OO/A1II01T<4)*(AP(4)  •  AP(5) 

•  ♦  A0M(4>  •  AIIES<4}*Aa(5)) 

Art(4)  a  1.00/(2.00*PI*Ar<4)*AL0(4))*Aa2 
Art<4)  a  0.00 

...  DIaphraga  [Arterial  Sagaant  5] 

Aa2  a  M(S)  •  Aa(6) 

AS2t  a  AOteS)  •  A0t(6) 

AR2  a  R2/ACAP(5) 

APt(5)  a  AR2*Aa2t  A02/ACAP(S) 

Aat(6)  a  1.00/AIIIERT(5}*<AP(5)  •  AP<6) 

•  *  A0PG(5)  •  AltES(5)*A<K6)) 

Art{5)  a  1.00/(2.00^l*Ar(5)*ALO(S))*Aa2 
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Art(5)  a  O.DO 


C... 

c... 

c... 


c. 

c. 

c. 


c... 

c... 

c... 


c... 

c... 

c... 


c... 

c... 

c... 


c... 

c... 

c... 


Kanal  <  Hepatic  CArtariel  ScpMnt  A] 

A02  a  Aa(6)  •  AS(7)  -  t>Q<6) 

M2t  a  Aat(6>  >  ABt(7)  •  PQt(6) 

AR2  a  R2/ACAP(6) 

APt(6)  a  AR2*M2t  «  Aa2/ACAP(6) 

Mt(7)  a  1.D0/AllKRT(6>a(AP(6}  •  AP(7) 

*  ♦  A0M(6)  -  ARE$(6>*(Aa(7)  >  N<6)»  •  Mt(6} 
Art(6)  a  1.00/(2.00ap1*Ar(6)*AL0(6))aAa2 

Art(6}  a  0.00 

Splanchnic  [Arterial  Segaent  71 

AQ2  a  AQ(7)  .  aQ(8)  -  PQ(7) 

Aa2t  a  Aat(7)  •  AQt(8)  -  PQt(7) 

AR2  a  R2/ACAP(7) 

APt(7)  a  AR2*Aa2t  *  AQ2/ACAP(7) 

A0t(8)  a  1.00/AIHERT(7)*(AP(7)  -  AP(8) 

*  ♦  A0P8(7)  -  ARES(7)a(AA(8)  ♦  P0<7»)  -  PQtC7> 
Art<7)  a  1.00/(2.00*Pi*Ar(7)*AL0(7))*AA2 

Art(7}  a  0.00 

Buttocks  (Arterial  Sagsant  81 

AiQ2  a  aO(8)  -  AO(9)  •  PQ(8) 

AlQ2t  a  AOt(8)  •  AOt(9)  •  PQt(8) 

AR2  a  R2/ACAP(8) 

APt(8}  a  1.00/ACAP(8)*Aa2  >  AR2*AQ2t 
AQt(9)  a  1.00/AIHERT(8)a(AP(8)  <  AP(9) 

*  ♦  A0PG(8)  -  ARES(8)*(Aa(9)  ♦  Pfl(8)))  -  P0t(8) 
Art(8)  a  1.00/(2.00*Pi*Ar(8)*ALO(8))*AQ2 

Art(8}  a  0.00 

Faanralis  (Arterial  Segaent  91 

A02  a  Aa(9)  •  AO(IO) 

AQ2t  a  A0t(9)  •  AOt(IO) 

AR2  a  R2/ACAP(9) 

APt(9)  a  AR2*AQ2t  Aa2/ACAP(9) 

AQtdO)  a  1.D0/AINERT(9)*(AP(9}  -  AP(10) 

*  *  A0P6(9}  •  ARES(9}*Aa(10)) 

Art<9)  a  1.00/(2.DO*Pi*Ar(9)*ALO(9))*Aa2 
Art(9)  a  0.00 

Thigh  (Arterial  Segaent  101 

AQ2  a  AQ(10)  -  AQ(11)  -  PQdO) 

A02t  a  AOtdO)  -  AOtdl)  -  POtdO) 

AR2  a  R2/ACAPdO) 

APtdO)  a  AR2*Aa2t  *  A02/ACAPdO) 

AOtdl)  a  1.D0/AINERTd0)*(AP(10}  -  APdl) 

*  *  AOPGdO)  -  ARESdO)*(Aad1}«PQdO)))  •  PQtdO) 
ArtdO)  a  1.P0/(2.00*Pi*Ard0)*AL0d0))*AQ2 

ArtdO)  a  0.D0 

Knee  (Arterial  Segaent  111 


A02  a  AOdl)  '  Aa<12} 

AQ2t  a  AOtdl)  -  A0td2) 

AR2  a  R2/ACAPd1) 

APtdl)  a  A02/ACAPd1)  *  AR2*A02t 
A0td2)  a  1.00/AINERTd1)*(APd1)  -  APd2) 

*  *  AOPGdI)  -  ARESd1)*A0d2)) 

Artdl)  a  1.00/(2.DO*Pi*Ard1)*ALOd1))aA02 
ArtdD  a  O.DO 

C... 

C...  Calf  (Arterial  Segaent  12) 
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M2  •  M<12>  •  M(1S)  •  N(12) 

M2t  •  Mt(12)  •  Mt(13)  •  l>Qt(12) 

AI2  >  wnanm 

Mt(12)  -  Ma*M2t  ♦  A02/MM(12> 

Mt(13)  •  1.00/AIIKIT(12)*<AP(12)  -  «P(13) 

•  *  MN(12)  •  AllfS(12)*(M(13)-H>Q(12)))  -  Mt(12> 
Art(12)  >  1.M/(2.D0^f*Ar(12)*AL0(12))*Aa2 

Art(12)  >  0.M 

C... 

C...  Ankltt  lArtarUl  S«gHnt  13} 

C... 

A02  •  M(13)  -  M<U> 

Aa2t  «  Aat(13)  •  Mt(U) 

AI2  ■  A2/AW(13) 

AM(13)  >  Aa2t*AII2  *  A02/ACAP(13) 

Mt(U)  >  1.M/AIIIEAT(13)*(AP(13)  •  AP(U) 

*  *  ADAQ(13>  •  AAEt(13)*M(U)) 

Art(13>  ■  1.00/{2.0(W1*Ar(13)*AL0<13))*A02 
Art<t3)  >  0.00 

C... 

C...  Foot  [Artorial  Togint  U] 

C... 

Att  •  M(U}  •  M(U) 

Attt  «  AQt(U)  •  PQtCU) 

Alt2  ■  II2/ACAP(U) 

APt(U)  >  AR2*AA2t  ♦  Aa2/ACAP(U) 

Nt(U)  >  1.00/AIHnT(U)*(AP(U)  •  PP(U)  ♦  AOPG(U) 

•  •  AAtS<U)«M(U)) 

Art(U)  •  1.00/(2.00*P1*Ar<U)*AL0(14))*AQ2 
Art(U}  >  0.00 

C... 

C...  Ooriotioral  Ood  in  Foot  CPoriphorol  SoflMnt  14} 

C... 

VQ(14)  •  0NAX1<(M(U}  •  VP(14)  •  N<14)*mA(14))/l>AV(14).O.DO) 

N2  •  M(14)  •  W(14> 

m(U)  •  P0t(14)«l*«A(14)  *  M2/I>GAP(14) 

C. . . 

C...  VoneuB  Oralnogo  froa  Foot  CVonouo  SoflMnt  14] 

V0t(14)  -  <r.t(14)  •  VPt(14)  -  Pat<14)*W«A(14))/PRV<14) 

VQ2  -  VB(14)  •  va(13) 
va2t  -  VQt(14}  •  VQt<13) 

VR2  •  «2/VCAF(14) 

VOtCH)  •  VQ2t*VR2  ♦  Va2/VCAP(14) 

Vat(13)  >  1.00/VINaT(14)*(VP<14)  -  VP(13)  ^  VDPG(14> 

*  -  VlltS(14}*VQ(13)) 

Vrt(14)  ■  1.00/(2.00^t«Vr(14}*VLO(14))*VQ2 

C... 

C...  Anklo  IVonoui  SoflMnt  13] 

C... 

F«UT<12>  -  (PP(12)  •  VP(12)  •  PAA(12)*M(12))/raV(12) 

PQOUTt  >  (FFt(12}  -  VPt(12)  -  PM(12}*PQt(12)}/PAV(12) 

>«2  >  ¥0(13)  -  (¥0(12)  •  P0aUT(12)) 

¥02t  >  ¥Qt(13)  •  (¥Qt(12)  •  POOUTt) 

¥02  ■  I(2/WmP(13) 

¥Pt(13)  •  ¥a2tmt2  ♦  ¥Q2/¥CAP(13) 

¥Ot(12)  >  1.00/¥imiT(13)*(¥P(13)  •  VP(12}  >  VDPG(13) 

*  -  ¥MS(13)*(¥Q(12)  -  POOUT(12))}  ♦  PQOUTt 

¥rt(13)  >  1.DO/(2.OO^1*¥r(13)*YL0(13))*va2 

C... 

C...  Calf  (¥anoua  SoflMnt  12] 

C... 

¥02  «  ¥0(12)  •  ¥0(11) 

¥a2t  >  ¥Qt(12)  -  ¥0t(11) 

¥12  >  A2/¥CAP(12) 

¥Pt(12)  >  ¥02t*¥R2  ♦  ¥02/¥CAP(12) 

VOtdl)  >  1.D0/¥INERT(12)*(¥P(12)  •  ¥P(11)  VDP6(12) 

•  -  ¥US(12)*Va(11)) 


141 


uuu  uuu  uuu  uuw  uuu  uuu 


r 


Vrt<«>  ■  1.00/<2.0W1«Vr<12)-VLO<12)>«V02 

•  •  • 

...  KnM  (Vanou*  SaqMnt  11] 

FQOUT(IO)  >  (miO)  -  VP(10)  •  PM(10}*M(10})/MV(10> 
PQQUTt  >  (m(10)  •  VPtdO)  -  MA(10)*Pat(10))/MV<10) 
M2  >  M<11)  •  (M<10)  •  PQOUTdO)) 

M2t  -  Mt<11)  •  <Mt<10)  -  PQOITt) 

VI2  >  R2/VCAP<11) 

VPtdl)  >  M2t*VI2  *  M2/VC«Pd1) 

MtdO)  -  1.D0AIIKRTd1)*(VPd1)  •  VPdO)  ♦  VDMdD 

•  •  VKSd1)*(MdO)  *  POOUTdO)))  «  pgouTt 
Vrtdl)  •  1.00/<2.IXWl*Vrd1)*Vl.0d1))*M2 

•  •  • 

...  Thlflh  CVanous  SagMnt  10] 

M2  «  M<10>  -  M<9> 

M2t  -  MtdO)  •  Mt(9) 

VI2  ■  112/VCAPdO) 

MtdO)  a  M2t*M2  ♦  M2/VCAPdO) 

Mt(9)  a  1.00/VimTd0)*(Md0)  -  M(9)  *■  VOPCdO) 

•  -  MeSdO)*M<9)) 

VrtdO)  a  1.00/<2.00Mi*VrdO)*VLOdO))*M2 

•  «  • 

...  Fanoralls  [Vamua  Saflnnt  9] 

POOUTCS)  a  (Pf(8)  -  M(8)  •  PtA(8)*N<8))/PltV(8) 
NOUTt  a  (Mt(8)  •  Mt(8)  •  PM(8)*Pat(8))/PRV<8) 

M2  a  va<9)  •  (M(8)  •  POQUT(8)) 

M2t  a  Mt(9)  •  (Mt(8)  •  NOUTt) 

M2  a  ||2/VCMP(9) 

Mt(9)  a  M2t«M2  ♦  M2/VCAP(9) 

Mt(8)  a  1.00/Vtimr<9)*(M(9)  •  M(8)  *  VDN(9) 

•  -  MfS(9)*(M(8)  •  N0UT<8)))  ♦  PQOUTt 
Vrt<9)  a  1.D0/(2.00*P<*Vr<9)*VL0(9))*M2 

a  a  a 

...  luttoeka  CVanoua  Tagwant  8] 

NOUrcT)  a  {pp<7)  -  M<7)  -  mA(7)*N(7))/PRV(7) 
PQOUTt  a  (ppt(7)  -  Mt(7)  •  PtA<7)*Nt(7))/PRV(7) 

M2  a  VQ<t)  •  <M<7)  •  PQOUTTT)) 

M2t  a  Mt(8)  •  (Mt(7)  •  PQOUTt) 

M2  a  R2/VCAP(8) 

Mt(8)  a  M2t«M2  *  M2/VC«P<8) 

Mt(7)  a  1.D0/VIIIERT(8)*(M(8)  •  M(7)  *  VSN(8) 

•  -  MR<8)«(M(7)  -  PQ0UT(7)))  ♦  PQOUTt 
Vrt(8)  a  1.00/(2.00Mf«Vr(8)*VLO(8))*M2 

...  Splanchnic  CVanoua  Tagawnt  7] 

PQ0UT(6)  a  (PP(8)  -  M(6)  -  PRA(6)*M(6))/NV(«) 
PQOUTt  a  (ppt(6)  •  Mt(6)  -  PM(6)*Nt(6))/NV(6) 

VQ2  a  VQ(7)  .  CM(«)  •  PQOUTCO)) 

M2t  a  Mt(7)  •  (Mt(6)  •  PQOUTt) 

VR2  a  RZ/VCPPCT) 

Mt(7)  a  M2t*VR2  *  VQ2/VC«P(7) 

Mt(6)  a  1.00/VINaT(7)*<M(7)  -  M(6)  >  VDK(7) 

•  •  VR88<7>*<M(6)  •  PQ0UT(6)))  >  PQOUTt 
Vrt(7)  a  1.00/(2.00Ni«Vr(7)*Vl0<7))*VQ2 

a  a  a 

...  Ranal  •  Hapatic  CVanoua  Sopaant  6] 

VQ2  a  viQ(6}  •  M(5) 

V02t  a  Mt(6)  •  Mt(S) 

M2  a  R2/V«P(6) 

Mt(6)  a  va2tNR2  *■  VQ2/VC«P(6) 

Mt(S)  a  1.0(MVIIIfRT(6)*(M(6)  •  M(S)  ♦  VDN16) 

•  *  VIES(6)«M(5)) 

Vrt(6)  a  1.O0/(2.00*Pi*Vr(6)*VL0(6))*VQ2 
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!»•  •  • 

C...  Oiaphravi  tvwwus  S«fMnt  51 
C... 

¥02  >  ¥0(5)  •  ¥0(4) 

¥02t  >  VOt(S)  •  ¥0t(4) 

¥12  >  l2/¥0»(5) 

V¥t(S)  •  ¥02t*VI2  ♦  ¥02/¥C«P(5) 

¥0t(4)  •  1.D0/¥INnT(S)*(¥P(S)  -  ¥P(4}  «  VDP6(5) 

•  -  ¥iiS(5>«¥0(4)) 

¥rt(5)  •  1.00/(2.00^i*¥r(5)*¥t0<5))*¥02 

C... 

C...  Thoracfe  Circulation  t¥«noua  Sogaant  4] 

C... 

Maur(3)  -  <PP<3)  -  VK3)  -  P«A(3)*PO(3))/Pt¥<3) 

MOUTt  >  (m(3)  •  ¥at(3)  •  PIA(3>*PQt(3))/PR¥(3> 

¥02  -  VO(4)  •  (¥0(3)  -  POOUT(3)) 

¥02t  >  ¥Qt(4)  •  (¥Qt(3)  •  PQOUTt) 

¥12  >  K2/¥CAP(4) 

m(4)  -  ¥02t*¥ll2  ¥02/¥CAP(4) 

¥Qt(3)  ■  1.00/¥HK»T(4)*(¥K4)  -  WP(3)  ♦  VDPG(4) 

•  -  ¥ICS(4)*(¥0(3)  -  PQ0UT(3)))  ♦  POOUTt 
¥rt(4)  •  1.00/(2.00^I*¥P(4)*¥LO(4))*¥02 

C... 

C...  Inferior  ¥ona  Cava  (¥anout  Sagaant  3] 

C... 

¥02  >  ¥0(3)  •  ¥00(3) 

¥02t  «  ¥0t(3)  •  ¥00t(3) 

¥tt  ■  R2/¥C4P(3) 

VPt(3)  >  ¥02t*VI2  ♦  ¥Q2/VC«P(3) 

¥rt(3)  •  l.OO/(2.l)O^i*Vr(3)*¥L0(3))*VQ2 

C... 

C... 

C...  Above  the  heart 
C... 

C...  Subclavian  -  Upper  Thorax  (Artarial  Sigaant  151 

Co  aa 

AP(15)  •  AP(3) 

M2  •  M(15)  •  M(1«) 

M2t  >  Mt(151  •  Mt(16) 

M2  •  t2/MM(i5) 

Mt(15)  *  (M2t*M2  ♦  M2/ACM(15)  *  APt(3))/2.00 
Mt(15)  •  1.D0/AII«IT(2)*(M(2)  *  M(15) 

•  ♦  MfQ(2)  •  MCS(2)*(M(3)  ♦  M(15)))  •  Mt(3) 
Mt(16)  ■  1.00/A1I«IT(15)*(AP(15)  -  AP(14)  ♦  ADPC(15) 

•  .  AMS(15)*M(16)) 

Art(15)  ■  1.00/(2.00^i*Ar(15)*ALO(15))*A02 
Art(15)  «  O.DO 

C... 

C...  Louer  Hack  (Arterial  Sagaait  161 
C... 

A02  >  M(16)  •  M(17) 

AQ2t  ■  Mt(16)  •  Mt(17) 

AU  >  R2/ACAP(16) 

APt(16)  «  Al02t*AA2  ♦  Aa2/ACAP(16) 

A0t(17)  ■  1.00/AIIIOIT(16)*(AP(16)  -  AP(17) 

•  ♦  ADN(16)  •  AltE$(16)*M(17)) 

Art(16)  •  1.00/(2.00^i*Ar(16)*ALO(16))*AQ2 

Art(16)  >  O.DO 

C... 

C...  Upper  Neck  (Carotid  sinua)  (Arterial  Sagaant  17) 

402  -  M(17)  •  M(18) 

AQ2t  «  Mt(17)  -  AQtdO) 

AM  •  R2/ACAP(17) 

APt(17)  -  Aa2t*M2  A02/ACAP(17) 

AOtdO)  ■  1.00/AigEllT(17)*(AP(17)  -  AP(18) 

•  *  A0P6(17)  •  AIIE$(17)*M(18)) 

Art(17)  •  1.OO/(2.DO*Pi*Ar(17)*AL0(17))*M2 
Art(17)  >  O.DO 
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Qptiialaic  (Arterial  tataant  IQ 

Att  >  AA(1«>  •  (Aa(19)  ♦  N(ia)) 

AMt  >  AQtdS)  •  (A0t(19)  «  AQtdS)) 

AM  >  ia/ACAA(TS) 

AAtdS)  •  Aa2t«AM  ♦  AOZ/ACAAdS) 

A0td9>  •  1.00/AliniTdS>*(A9d8)  •  A9d9>  ♦  ADAQdS) 

•  •  AIICSd8)«(Aad9)  *  PQd8)))  •  Mt(18> 

Artd8)  >  1.00/(2.D0^i*Ard8>*AL0d8))*AQ2 
Artd8)  >  O.DO 

...  Ntdbrain  [Artarlal  SaaMnt  19] 

AM  >  A0d9)  •  Aa(20) 

A02t  ■  Ai0td9}  -  AQt(20) 

A82  •  82/AQl9d9) 

A9td9)  ■  Aa2t*AR2  *  Ai82/ACAPd9) 

A0t(20)  >  1.B0/AINnTd9)*(APd9)  •  A9(20)  «  ADP6d9> 

•  -  Allttd9)*AiQ(20)) 

Artd9}  •  1.00/(2.00^i*Ard9)*ALOd9))*A02 
Artd9}  •  0.90 

...  Carabral  (Artarlal  Sagwnt  201 

AA2  -  A0(20}  -  90(20) 

A02t  >  AiBt(20)  >  PQt(20) 

AM  •  R2/ACAP(20) 

A9t(20)  •  A02t*AM  ♦  Ai02/ACA9(20) 

Art(20)  •  1.:^/(2.0Q^I*Ar(20)«ALO(20))*Aa2 
Art(20)  >  0.00 

...  Carabral  bad  (Oarlpharal  Sagamt  20) 

PQt(20>  >  1.D0/AlliaT(20)*(A9(20)  •  P9(20)  «  ADI>G(20) 

«  •  AKS(20)*9e(20)) 

VQ(20)  >  0NAX1((P9(20)  •  V9(20)  •  9Q(20)*P«A(2O))/PRV(2O>.0.DO) 
PQ2  a  M(20>  •  V0(20) 

P9t(20)  a  Mt(20)*PM(20)  >  PQ2/KAP(20) 

a  a  a 

...  Vanous  Oralnaoa  froa  Brain  (Vanoua  Sagaant  201 

VQt(20)  a  (ppt(20)  •  V9t(20)  >  PQt(20)*PM(20)}/9llV(20) 

VQ2  a  VO(20}  *  90(19} 

V02t  a  vet(20)  '  90t(19) 

VM  a  M/VCAP(20) 

V9t(20>  a  VQ2t«VM  ♦  V02/VCAP(20) 

VQt(19)  a  1.00AINEIT(20)*(V9(20)  •  VPd9)  ♦  W>9C(20> 

•  •  VMS(20)*9Q(19)) 

Vrt(20)  a  1.0O/(2.DO^I*Vr(20)«VL0(20))«VQ2 

...  Nldbraln  (Vanoua  Sagaant  19] 

P00UT(18)  a  (PP(18)  -  VP(18)  «  PU(18)*l>0(18»/PgV(18) 

PQOUTt  a  (mdSl  •  VPt(18)  •  PIU(l8)*PQtd8))/l>ltV(18) 

VQ2  a  90(191  •  (90(18)  •  PaaUTd8}) 

VQ2t  a  vat(19}  •  (V0t(18)  •  PQOUTt) 

VM  a  OZ/VCAPdO) 

VPt(19)  a  V02t«VM  *  902/VCAPd9) 

VQt(18>  a  1.00/VlintT(19)*(VPd9)  -  VPd8)  ♦  9996(19} 

•  •  VKSd9)*(V0(18)  •  PQOUTdO)))  ♦  PQOUTt 
Vrt(19)  a  1.00/(2.D0^l*Vr(19)«Vl0(19))a9Q2 

a  a  a 

...  Olpthalaic  (Vanoua  Sagaant  IQ 

902  a  vodS)  •  VQd7) 

902t  a  V0t(18)  •  VQt(17) 

VII2  *  II2/VCAPC18) 

VPtdS)  a  ve2t«vg2  «  V02/VCAPd8) 
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MtdT)  >  i.o«/viwn(ia)*(w(it)  -  mm  *  vDKdt) 

•  .  VMt(ia>*VB(17)) 

Vrt<1S>  >  1.R0/(2.a0^1«Vr(18)*VL0(1«)>*VQ2 

C... 

e...  Ufpar  Hack  CVanoia  Sa^wic  171 
C... 

M2  >  mm  •  MCU) 

M2t  >  MtdT)  •  Mtd8) 

M2  •  I2/M«8d7) 

Mtd7>  -  va8t«M2  •»  M2/M«Pd7) 

Mtd8)  >  1.00/VIM»Td7>*(Md7)  -  M<U)  «  VDPG<17) 

•  -  Mnd7)«Md«)) 

VrtdT)  ■  1.P0/<2.0«^l*Vrd7)*VL0<17))*M2 

c«  •  • 

C...  LaiMr  Mack  (Jutlar)  tvanoua  1A1 

M2  >  M(U)  -  M<») 

¥a2t  -  MtCM)  •  MtdS) 

M2  >  k2/va»d6) 

Mt<M>  ■  VMtm2  «  M2AC«8d6) 

MtdS)  -  1.00/VlNnTd«)*(VPd6)  -  VPdS)  MKdS) 

•  -  MISd8>*MdS)) 

Vrtd6)  -  1.00/<2.00^<*Vrd«)*VL0d«))*M2 

C... 

C...  kukclawian  (Mnaua  SaaMnt  15] 

C... 

M2  •  MdS)  •  M<2> 

M2t  -  MtdS)  •  Mt(2) 

Va2  -  R2/Mf»dS) 

MtdS)  •  Va2tnt2  ♦  M2/VCM<15) 

Mt(2)  >  1.MI7VlHilTdS)«(Md5)  •  M(2)  •»  MKdS) 

•  .  tMt<1S)*M<2)) 

Wrt<15)  ■  1.0(l/<2.0aMt*Wrd5)*Wl0<15))*M2 

C... 

C...  tMariw*  Vm*  {Mnaua  tapowt  2] 

e... 

M2  >  M<2)  •  Ma(2) 

M2t  •  Mt(2)  •  MQt<2) 

M2  -  I2/VCAP(2) 

Mt(2)  •  M2t*M2  *  Va2/VCM(2) 

Vrt(2)  -  1.80/(2.00M1«Vr(2)«VL0<2))*M2 

C... 

C...  Porn.tlM  darivatluaa  for  tho  porlphoral  bodi 
C... 

C...  Opthalaie  {Parlpharal  Sapwit  18) 

c... 

N2  -  PCKIS)  ■  Maur<18) 

MtdS)  >  Mtd8}/nu<18)  -  N2/(PMd8)«POIPd8)) 

c... 

C...  Thorax  and  Coronarlaa  IMrfpharal  tiamt  3] 

C... 

702  >  M(3)  •  PaaUT(3) 

Nt(3)  >  m(3)/PM(3)  •  P02/<MA(3)*PCAP(3)) 

C... 

C...  kOMlndor  of  Porlphoral  Saononts 
C... 

1  >  6 

W  IMILfd  .U.  IF00TSC6  -  1) 

IF  <  POUTd)  .8T.  0  )  TNBI 
702  >  Nd)  *  TOOUTd) 

TOtd)  >  77td)/7Md)  •  702/(7Md)«PCAPd)) 
END  IP 
I  ■  1  ♦  1 
OD  W 
METUm 
END 

SUBMWriNE  Mlirr(ll,N06,  007,  008) 

c... 

Co  o  o '  QRk  'CQMiQN 
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m  tfM  vtrliMM 
m  tfM  dtrlMtlvM  vf  wariiMM 

tti  apMfaf  *rf«attvM  «f  vmIiMm 

/■/  t  /!/  rMt  tud  Inumr  pwMttars  r«quir«tf  to  dofino  conotanto  and 
dafino  tho  apatlal  fntagratlon  orid. 

INKICIT  OOUKI  NfClSIOM  (A-N.  0-Z) 

MRAMTn  (NN  -  20,  NMifi  -  10) 

INTHtt  MTW,  NOOUN,  10 

imOlt^  AIM,  AU3UT,  VLM,  VUWT,  PVS,  OM,  POUT 
OOUOU  POKISION  NePA,  aad) 

COMNOi/T/  T,  NfTOP,  IKMM  I  Itn  ParaMtara 

a  •  a 

...  Arrays  far  aaoaantai  varfaMaa  Praaaura  (P),  floidO),  and  radft  (r) 


1 

/V/  HP(4), 

110(4), 

1  Heart's  Chaaters  04*1 

* 

Ap(iag), 

AMNEO), 

ArlNEO). 

1  Arterial  P,  0,  r 

• 

i^Nn), 

VOCNM), 

Vr(NBO), 

1  Venous  P,  0,  r 

• 

VOPCS), 

VOOCS), 

1  Vanous  floHB  into  heart 

* 

PPIHEO), 

POCNEQ), 

1  Peripheral  P,  Oin,  Gout 

T1 

IM  darivstivaa  of  the  sagMntal  variables:  Pt,  Ot,  rt 

2 

/F/  NPt<4), 

H0t(4), 

1  Heart's  Chartan  0A>1 

• 

APtCNM), 

Agt(NEQ), 

Art(NEO), 

1  Arterial  Pt,  Qt,  rt 

* 

miNEO), 

WOt(Hn), 

VrtfHEO), 

t  Vanous  Pt,  Ot,  rt 

• 

VOPtlS). 

V00t(3), 

1  venous  flow  into  heart 

* 

PPt(NEO), 

POt(NEO), 

1  Peripharal  Pt,  QINt,  QOUTt 

..  ParaaKtara  naeoaaary  to  fora  tha  diffarantfai  aquatiana 
!!  PI  •  3.U1S9... 

gO  *  9.00605  0tfaae‘*21  aarth'a  aeealaration  of  gravity 

..  riioO  •  1050.  ag/arSl  danafty  of  idwla  blood  (A5X  Net)  j  aaauaad 

aaiO  *  2.7  Ic^  vlaeoafty  of  tdwla  blood  <4SX  Het)j  Conatant 

020  *  pt/100  Iradfana/dograal  seals  factor 

5  /O/  Pf,  gO,  riioO,  aadl,  020,  MNZPA,  02,  I  Constants 

•  ZMKON),  ZATINOO),  ZVOlNfO),  ZVT(NEO),  I  Arterial  A  Vanous 

•  TI«TA<NCa),  NCAPIA),  NVaU),  HtOlA),  I  Orientation  angle 

•  AlOMfO),  ArUCNOO),  AE(NEQ),  Ah(IICQ).  I  Arterial  I,  r.  E,  h 

•  ACAPlNiQ),  AOESINEO),  AINEOTINH),  I  Arterial  Capacitance,  reeistanca 

•  VUKiaO),  VrOCNEO),  VrlKNOO),  I  Venous  I,  r,  rlMSTOESSED 

•  VCAPOfOn),  VCAP(NEO),  VOES(NEO),  VINEOT(NEQ),  I  Vanoue  Capacitance,  reaiatance,  inertance 

•  POAIOEQ),  POVION),  PCAPINEQ),  I  Peripheral  Oa,  Ov,  C 

•  PINOIT(Nn),  PVOLINEO),  I  Peripheral  I,  V 

•  PMKOn),  PVOINEO).  I  Initial  P  conditions 

•  OAOlon),  OVOlOiO),  I  Initial  0  conditions 

•  AVOLMEO),  WOLINEQ),  I  A  A  V  Voluaso 

•  PEXTCNEO),  I  Externally  applied  Pressure 

•  TO,  OfTAOT,  SNAX,  TOOKI,  TIRK2,  TNAX,  GFIN,  I  G-Profile  poraavters 

•  6l,  AOPGCNBO),  VOPGINEO)  I  Gs  A  Delta  P  froai  G 

4  /I/  IP,  NDXPEOlNPgEG),  I  Peripheral  gad  Indexes 

•  ALINCOIO),  ALOUTCNEQ),  I  Linkage  Data  arterial 

•  VLMCOn),  VLflUT(NEQ),  I  Vanous 

•  PININOO),  POUT(NEO),  I  Peripheral 

•  PVSeon),  I  Nudber  parallel  vanous  sigawnts 

•  iraOTOBO,  INEADSEG,  IHEAOTSEG  I  Foot,  Head.  A  Heart  sag  nuM 


...  POINT  A  NEHOIHG  FOO  THE  NIMEOICAL  SOLUTION 
IP«IP*1 

IFdP.EQ.I  )WITE(N06, 100) 
IF(IP.E0.1)WITE<N07,100) 
IF(IP.E0.1)tglITE<liaS,100) 
IF(IP.E0.1)UIITE<*,1) 

«MITE<NO,2) 

UOITE<NO,2)  T 
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1  NMMTCSX.'T  •  *.M2.4.'  MC'  > 

C... 

C...  MIMT  TM  MUiriON 

C... 

HMD  >  WiZi  *  VQQCS) 

HilTIC  *.22)  T.  Ox.  TWTMD.Cmk).  lol.HM).  (VMk).  k«1.HEQ) 
URITIC  «,22>  T.  8X.  THiTA(D.(M»(k).  k>1.«).  (HQ<k).  k«D4) 
UIItlCin6.2>  T.  Os.  THnA(D.U»<k}.  k-1.IKQ),  (AKk).  k>1.HiQ) 
UilTt(H07,2>  T.  Ox.  THITA(D.(W(k).  k-1,HIQ).  (VQ(k>.  k>1.HfQ> 
l«lTi<Hai,2)  T.  Ox.  TMITA(D.(HH(k).  k>1.Mt«).  (PMk).  lol.HEQ) 

2  raRNAT(3rt.4.M(I12.4.1X)) 

22  FQHNAT(3ra.A.  /.12(S<i12.4.1X).1X./}) 

100  raMAT(2X.'  Tlw'.SX.'  Ox  TiMta  '.'Op  Art  ArMS*. 

**  Op  Art  rioH','  Op  Ar«M'.*  Op  Vn  FloM'.'Op  Mad  Pr  ') 

HXTURH 

CHD 
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MOORMI  M(r49.rai 


*OCCK  M(F49 

UMMUTINI  n(r4S(r.NIQN.Y,T,TaUT.IIfLnn,AMCn.irLA6.y0RK,lW0tlC) 
KMiane  roMTN'FirrH  qrocr  RUMi-nrrTA  mtmo 

MITTEN  NT  N.A.MTTS  AND  L.F.SHANPINE 
SANDIA  UMRATQRieS 
ALMQUCIMUE.NEW  NDIICO 

EKFAS  IS  PRIMARILY  OESIGNEO  TO  SOLVE  NON-STIFF  AND  MILDLY  STIFF 
DIFFERENTIAL  EOUATIONS  WHEN  DERIVATIVE  EVALUATIONS  ARE  INEXPENSIVE. 
RKF45  SHOULD  GENERALLY  HOT  SC  USED  WHEN  THE  USER  IS  DENANDIHG 
NIGN  ACCURACY. 

AISTRACT 

SUnOUTINE  RKF4S  INTEGRATES  A  STSTBI  OF  NEON  FIRST  ORDER 
ORDINARY  DIFFERENTIAL  EQUATIONS  OF  THE  FORM 

DY(l)/OT  -  F(T.Y(1).T(2)....,Y(NEQN)) 

WHERE  THE  Y<1)  ARE  GIVEN  AT  T  . 

TYPICALLY  THE  SUMOUTINE  IS  USED  TO  INTEGRATE  FROM  T  TO  TOUT  BUT  IT 
CAN  SE  USED  AS  A  ONE-STEP  INTEGRATOR  TO  ADVANCE  TM  SOLUTION  A 
SINGLE  STEP  IN  THE  DIRECTION  OF  TOUT.  ON  RETURN  THE  PARAMETERS  IN 
TNE  CALL  LIST  AK  SET  FOR  OOHTINUING  THE  INTEGRATION.  THE  USER  HAS 
ONLY  TO  CALL  MCFAS  AGAIN  (AMO  PERHAPS  DEFIHE  A  NEW  VALUE  FOR  TOUT). 
ACTUALLY.  RKF4S  IS  AN  INTERFACING  ROUTINE  MICH  CALLS  SUDROUTIHE 
RKFS  FOR  THE  SOLUTION.  RKFS  IN  TURN  CALLS  SUBROUTINE  FEHL  WHICH 
COMPUTES  AN  APPROXIMATE  SOLUTION  OVER  ONE  STEP. 

RKF4S  USES  THE  RUH6E-KUTTA-FEHLBERG  (4.5)  METHOD  DESCRIBED 
IN  THE  REFERENCE 

E.FEHLSERG  .  LOW-ORDER  CUSSICAL  RUNGE-KUTTA  FORMULAS  WITH  STEPSIZE 
CONTROL  .  NASA  TR  R-3T5 

TIC  PERFORMANCE  OF  RKF45  IS  ILLUSTRATED  IN  THE  REFERENCE 
L.F.SNANPINE.H.A.UAnS.S.OAVENPORT.  SOLVING  NON-STIFF  ORDINARY 
DIFFERENTIAL  EQUATIONS-TNE  STATE  OF  THE  MT  . 

SANDIA  LABORATORIES  REPORT  SAN07S-0182  . 

TO  APPEAR  IN  SIAN  REVIEW. 


THE  PARAMETERS  REPRESENT- 

F  -  SUBROUTINE  F(T.Y.YP)  TO  EVALUATE  DERIVATIVES  YP(I)-OY(I)/DT 
NEON  -  HUMBER  OF  EQUATIONS  TO  BE  INTEGRATED 
Y(*)  -  SOLUTION  VECTOR  AT  T 
T  --  INDEPENDENT  VARIABLE 

TOUT  -  OUTPUT  POINT  AT  WHICH  SOLUTION  IS  DESIRED 
RELERR.ABSERR  —  RELATIVE  AND  ABSOLUTE  ERROR  TOLERANCES  FOR  LOCAL 
ERROR  TEST.  AT  EACH  STEP  THE  CODE  REQUIRES  THAT 
ABS(LOCM.  ERROR)  .LE.  RELERR*ABS(Y)  *  ABSERR 
FOR  EACH  COMPONENT  OF  THE  LOCAL  ERROR  AND  SOLUTION  VECTORS 
I  FLAG  -  INDICATOR  FOR  STATUS  OF  INTEGRATION 
UORK(*)  -  ARRAY  TO  HOLD  INFORMATION  INTERNAL  TO  RKF4S  WHICH  IS 
NECESSARY  FOR  SUBSEQUENT  CALLS.  MUST  BE  DIMENSIONED 
AT  LEAST  S»6*NEQN 

IWORKT*)  -  INTEGER  ARRAY  USED  TO  HOLD  INFORMATION  INTERNAL  TO 
RKF45  MICH  IS  NECESSARY  FOR  SUBSEQUENT  CALLS.  MUST  BE 
DIMENSIONED  AT  LEAST  5 


FIRST  CALL  TO  RKF45 

THE  USER  MUST  PROVIDE  STORAGE  IN  HIS  CALLING  PROGRAM  FOR  THE  ARRAYS 
IN  THE  CALL  LIST  -  Y(NEON)  .  U0RK(3«6*NEaN>  .  IU0RK(5)  . 
DECLARE  F  IN  AN  EXTERNAL  STATEMENT.  SUPPLY  SUBROUTINE  F(T.T.YP)  AND 
INITIALIZE  THE  FOLLOWING  PARAMETERS- 
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HnN  —  HUNMI  Of  EOUATIOHS  TO  K  IMTfOUTED.  (NEON  .GC.  1) 

V(*)  -  WCTOR  Of  INITIAL  CONDITIONS 
T  ••  STAITINS  MINT  Of  INTfSIATIOM  ,  MUST  U  A  VARIASUE 
TOUT  ••  OUTMT  MINT  AT  WHICN  SOLUTION  IS  DESIRED. 

T«TOUT  IS  ALLOUM  OH  THE  fIRST  CALL  ONLY.  IN  UHICM  CASE 
RXfAS  MTURNS  UITN  IfLAM  If  CONTINUATION  IS  MSSISLE. 
RCLERR.ASSnS  ••  REUTIVE  AND  ANSOUITE  LOCAL  ERROR  TaERANCES 

UNtOI  NUST  SE  NOH-HESATIVE.  RELERR  HURT  SE  A  VARIABLE  WHILE 
ABSERR  WIT  EE  A  CONSTANT.  THE  CODE  SHOULD  HORNALLT  HOT  BE 
USO  WITH  REUTIVE  ERROR  CONTROL  SNALUR  THAN  ABOUT  1.E-8  . 
TO  AVOID  LINITIHG  PRECISION  DIffICULTIES  THE  CODE  REQUIRES 
RELERR  TO  M  LARSER  THAN  AN  IHTERNALLT  CONPUTM  RELATIVE 
ERROR  PARANETER  WHICH  IS  NACHINE  OEPCHOENT.  IH  PARTICULAR. 
PURE  ABSOLUTE  ERROR  IS  NOT  PERNITTED.  If  A  SNALLER  THAN 
ALLOUAM.E  VALUE  Of  RELERR  IS  ATTENPTEO.  RKfAS  IIKREASES 
RELERR  APPROPRIATELY  AND  RETURNS  CONTROL  TO  THE  USER  BEFORE 
OONTIHUIHO  THE  INTEORATION. 

IFLAS  ••  ♦l.-l  INDICATOR  TO  INITIALIZE  THE  CODE  fOR  EACH  HEW 
PROBLEN.  HORNAL  INPUT  IS  ■»!.  THE  USER  SHOULD  SET  IfLAC— 1 
ONLY  UHn  ONE'STB*  INTEGRATOR  CONTROL  IS  ESSENTIAL.  IN  THIS 
CASE.  RKfAS  ATTENPTS  TO  ADVANCE  THE  SOLUTION  A  SINGLE  STEP 
IN  THE  DIRECTION  OP  TOUT  EACH  TINE  IT  IS  CALUO.  SINCE  THIS 
NODE  Of  OPERATION  RESULTS  IN  EXTRA  CONPUTING  OVERHEAD.  IT 
SHOULD  BE  AVOIDED  UNLESS  HEEDED. 


OUTPUT  fRON  RKF4S 

T(*)  --  SOLUTION  AT  T 
T  —  LAST  MINT  REACHED  IH  INTEGRATION. 

IfLAG  «  2  ••  INTEGRATION  REACHED  TOUT.  INDICATES  SUCCESSFUL  RETURN 
AND  IS  THE  NORNAL  NODE  fOR  CONTINUING  INTEGRATION. 

•*2  ••  A  SINGLE  SUCCESSFUL  STEP  IN  THE  DIRECTION  OF  TOUT 
NAS  BEEN  TAKEN.  NORNAL  NODE  FOR  CONTINUING 
INTEGRATION  ONE  STEP  AT  A  TINE. 

•  }  **  lirKRATION  IMS  NOT  CONPLETED  SECAUSE  REUTIVE  ERROR 

TOLERANCE  WAS  TOO  INALL.  RELERR  HAS  BEEN  INCREASED 
APPROPRIATELY  FOR  CONTINUING. 

•  4  ••  INTEGRATION  WAS  NOT  CONPLETED  BECAUSE  NONE  THAN 

3000  DERIVATIVE  EVALUATIONS  WERE  NEEDED.  THIS 
IS  APPROKINATELT  SOO  STEPS. 

>  5  —  INTEGRATION  WAS  NOT  OONPLETD  BECAUSE  SOLUTION 

VANISHED  NAKING  A  PURE  REUTIVE  ERROR  TEST 
INPOSSIBU.  NUST  USE  NON-ZERO  ABSERR  TO  CONTINUE. 
USING  THE  ONE-STEP  INTEGRATION  NODE  FOR  ONE  STEP 
IS  A  GOOD  WAY  TO  PROCEBI. 

>  6  -  INTEGRATION  IMS  NOT  CONPLETB)  BECAUSE  REOUESTED 

ACCURAa  COULD  NOT  BE  ACHIEVED  USING  SNALLEST 
ALLOURBLE  STEPSIZE.  USER  NUST  INCREASE  THE  ERROR 
TOLERANCE  BEFORE  CONTINUED  INTEGRATION  CAN  BE 
ATTENPTEO. 

-  7  -  IT  IS  LIKELY  THAT  RKF45  IS  INEFFICIENT  FOR  SOLVING 
THIS  PROBLEN.  TOO  NUCN  OUTPUT  IS  RESTRICTING  THE 
NATURAL  STEPSIZE  CHOICE.  USE  THE  ONE-STEP  INTEGRATOR 
NODE. 

>  8  -  INVALID  INPUT  PARANETERS 

THIS  INDICATOR  OCCURS  IF  ANY  OF  THE  FaLOWING  IS 
SATISFIED  •  IWQN  .LE.  0 

TaTOUT  AND  IFLAG  .IK.  OR  -1 
RELERR  OR  ABSERR  .LT.  0. 

IFLAG  .EG.  0  OR  .LT.  -2  OR  .CT.  8 
UORK(*),IUORK(*)  -  IHFORNATION  WHICH  IS  USUALLY  OF  NO  INTEREST 
TO  THE  USER  BUT  IMCESSARY  FOR  SUBSEQUENT  CALLS. 

WORKd ),.... UORK(NEQN)  CONTAIN  THE  FIRST  DERIVATIVES 
OF  THE  SOLUTION  VECTOR  Y  AT  T.  UORK(NEQIKI)  CONTAINS 
THE  STEPSIZE  H  TO  BE  ATTBMTB)  ON  THE  NEXT  STEP. 
lUORK(l)  CONTAINS  THE  DERIVATIVE  EVALUATION  COUNTER. 
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ameounr  caus  to  mcfas 

SUMflUTINf  IKMS  KTUHtt  WITH  ALL  IHramATIQH  H^CO  TO  CQHTIHUi 
THE  tHTMRATIOH.  IF  THE  IHTEORATION  REAOia  TOUT.  T«  USEK  MSD  OHL 
OEPIHE  A  MEW  TOUT  AHO  CAU  RKF4S  AMIH.  IH  THE  OHE-tTEF  IHTEGEATOE 
NODE  <IFLAfti*2>  THE  UIEE  NUET  09  IH  NIHO  THAT  EACH  ETEf  TAOH  IS 
IH  THE  OIRECTIOH  OF  THE  CURREHT  TOUT.  UFOH  REACHIHS  TOUT  (IHDICATED 
EY  CHAHEIHO  IFLAE  TO  2),THE  UEEI  NIST  THEH  OEFIHB  A  HEW  TOUT  AHO 
MOT  IFLAE  TO  -2  TO  CONTIHUE  IH  THE  OHE-STEF  IHTEEEATOR  MODE. 

IF  THE  IHTEOEATIOM  WAS  HOT  COMFLETBI  lUT  THE  USEE  STILL  WAHTS  TO 
COHTIHUE  (IFLAE-3.4  CASES).  HE  4UST  CAUS  REF4S  AEAIH.  WITH  IFLAS«3 
THE  RELERE  FARAMETER  HAS  BEER  ADJUSTED  AFFROMIATELT  FOR  COHTIHUlHfi 
THE  IHTECRATIOH.  IH  THE  CASE  OF  IFLAfi^  TO  FUHaiOM  COUHTER  WILL 
BE  RESET  TO  0  AHO  AHOTHER  3000  FUHCTION  EVALUATIOHS  ARE  ALLOWS). 

HOWEVER, IH  THE  CASE  IFLAS>5.  THE  USER  MUST  FIRST  ALTER  THE  ERROR 
CRITERIOH  TO  USE  A  POSITIVE  VALUE  OF  ASSERR  SEFORE  IHTECRATIOH  CAH 
PROCEED.  IF  HE  DOES  HOT.EiaCUTlOH  IS  TERNIHATED. 

ALSO.IH  THE  CASE  IFLA6-6.  IT  IS  HECESSART  FOR  THE  USSR  TO  OSET 
IFLAG  TO  2  (OR  -2  WHEH  THE  OHE-STEP  IHTECRATIOH  HODS  IS  BEIHC  USED) 
AS  WELL  AS  IHCREASIHS  EITHER  ASSERR.RELERR  OR  BOTH  BEFORE  THE 
IHTECRATIOH  CAH  BE  OOHTIHUED.  IF  THIS  IS  HOT  OOHE.  EXECUTIOH  WILL 
BE  TERNIHATED.  THE  OCCURRENCE  OF  IFLAS^  INDICATES  A  TROUBLE  SPOT 
(SOLUTION  IS  CNAHSIH6  RAPIDLY.SINCULARITY  HAY  SE  PRESENT)  AND  IT 
OFTEN  IS  INAOVISAKE  TO  CONTINUE. 

IF  IFLA«a7  IS  ENOOUNTCRCD.  THE  USER  SHOULD  USE  THE  ONE-STEP 
IHTECRATIOH  NODE  WITH  THE  STEPSI2E  DETERNINa  BY  THE  CODE  OR 
CONSIDER  SWITCHING  TO  THE  ADANS  COOES  OE/STEP,INTRP.  IF  THE  USER 
INSISTS  UPON  OONriHUINC  THE  INTEGRATION  WITH  RKF4S,  HE  NIST  RESET 
IFLAG  TO  2  BEFORE  CALLING  RKF45  AGAIN.  OTNERWI SC. EXECUTION  WILL  BE 
TCRNIHATSI. 

IF  IFLAa>8  IS  QSTAINRD,  INTEGRATION  CAN  NOT  BE  COHTINUB)  UNLESS 
THE  INVALID  INPUT  PARAMETERS  ARC  OOERCCTED. 

IT  SHOULD  BE  NOTED  THAT  THE  ARRAYS  WORK.IWORK  CONTAIN  INFORMATION 
REQUIRED  FOR  SUBSCaUENT  INTEGRATION.  ACCORDINGLY.  WORK  AND  IWQRK 
SHOULD  NOT  BE  ALTERED. 


INTEGER  NEON, (FLAG, IW0RK(5) 

DOUBLE  PRECISION  Y(NEaN),T,T0UT,RELERR,ABSERR,UaRK(^00) 

IF  COMPILER  CHECKS  SUBSCRIPTS,  CHANGE  UORKd)  TO  U0RK(3-»«^QN) 

EXTERNAL  F 

INTEGER  K1.K2,K3.K4,K5,K6,K1N 


COMPUTE  INDICES  FOR  THE  SPLITTING  OF  THE  WORK  ARRAY 

KIM-HCQMH 
K1>X1H»1 
K2>K1«MCQN 
K3>K2mCQN 
K4«K3»HEBM 
KS>«4«NEaN 
K6-K3*NEaN 
C 

C  THIS  INTERFACING  ROUTINE  MERELY  RELIEVES  THE  USER  OF  A  LONG 
C  CALLING  LIST  VIA  THE  SPLITTING  APART  OF  TWO  WORKING  STORAGE 
C  ARRAYS.  IF  THIS  IS  NOT  COMPATIBLE  WITH  THE  USERS  COMPILER, 

C  HE  MUST  USE  RKFS  DIRECTLY. 

C 

CALL  RKFS(F.NCSN,Y.T.TOUT,HELERR.ARSERR, IFLAG.U0RK(1).U0RK(K1N), 
1  uaRK(Kt),UaRK(K2),U0RK(K3),U0RK(K4),U0RK(K5),U0RK(K6). 
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2  unK(IC^1).lMORK(1),IUaRIC(2),IUOI(K(3}.IWMIC(i).IUOIlK(S>> 

MTum 

END 

SUMOUTINE  nCFS(F,HE0N,Y,T,TQUT,RELERR,AISEIM,IFUU:,VP.H,F1.F2.F3, 
1  F4.F5,SAVRE.SAVAE,HFE.K0P,IH1T,JFLAG,KFUU:) 

FEHLSERG  FOURTN-FIFTH  ORDER  RUNGE-KUTTA  NETHOO 


RKFS  INTEGRATES  A  SYSTEM  OF  FIRST  ORDER  ORDINARY  DIFFERENTIAL 
EQUATIONS  AS  DESCRISED  IN  THE  COMMENTS  FOR  RKF4S  . 

TNE  ARRAYS  YP.F1.F2,F3.F4,AN0  FS  (OF  DIMENSION  AT  LEAST  NEON)  AND 
TNE  VARIAILES  H.SAME.SAVAE.NFE.XOP.INIT.JFLAG.ANO  KFLAC  ARE  USED 
INTERNALLY  IT  THE  CODE  AND  APPEAR  IN  THE  CALL  LIST  TO  ELIMINATE 
LOCAL  RETENTION  OF  VAYIAILES  BETWEEN  CALLS.  ACCORDINGLY.  THEY 
SHOULD  NOT  BE  ALTERED.  ITEMS  (^  POSSIBLE  INTEREST  ARE 
TP  •  DERIVATIVE  OF  SOLUTION  VECTOR  AT  T 
H  -  AN  APPROPRIATE  STEPSIZE  TO  BE  USED  FOR  THE  NEXT  STEP 
HFE-  COUNTER  ON  THE  NUMBER  OF  DERIVATIVE  FUNCTION  EVALUATIONS 


LOGICAL  HFAILD.OUTPUT 

INTEGER  NEQN.IFLAG.NFE.KOP.INIT.JFLAG.KFLAG 

DOUBU  PRECISION  Y(HEQN),T,TOUT.RELERR,ABSERR.H,TP(HEaN). 

1  F1(HEQN),F2(NCaN),F3(NEQN).F4(NEON),F5(HEaN).SAVRE, 

2  SAVAE 

EXTERNAL  F 

DOUBLE  PRECISION  A,AE,OT,EE,EEOET,ESTTOL,ET.HNIN,RENIH,RER.S, 
1  SCALE.TOL.TOLN,U26,EPSP1,EPS.YPK 

INTEGER  K,NAXNFE,NFLAG 

DOUBLE  PRECISION  DABS,ONAX1,OMIN1,OSIGN 

RENIN  IS  TNE  MINIMUM  ACCEPTABLE  VALUE  OF  RELERR.  ATTEMPTS 
TO  OBTAIN  HIGHER  ACCURACY  UITH  THIS  SUBROUTINE  ARE  USUALLY 
VERY  EXPENSIVE  AND  OFTEN  UNSUCCESSFUL. 

DATA  REMIN/1.a0'12/ 


THE  EXPENSE  IS  CONTROLLED  BY  RESTRICTING  THE  NUMBER 
OF  FUNCTION  EVALUATIONS  TO  BE  APPROXIMATELY  MAXNFE. 
AS  SET,  THIS  CORRESPONDS  TO  ABOUT  SOO  STEPS. 

DATA  NAXNFE/20Q0000/ 


CHECK  INPUT  PARAMETERS 


IF  (iCGN  .LT.  1)  GO  TO  ID 

IF  ((RELERR  .LT.  0.000}  .OR.  (ABSERR  .LT.  0.000)}  GO  TO  10 
NFLA±.«IABS(IFLAG} 

IF  ((NFLA6  .EQ.  0}  .OR.  (MFLAG  .GT.  8}}  GO  TO  10 
IF  (MFLAG  .NE.  1}  GO  TO  20 

FIRST  CALL,  COMPUTE  MACHINE  EPSILON 

EPS  >  1.0DO 
5  EPS  >  EPS/2.0D0 
EPSP1  >  EPS  f  1.000 
IF  (EPSPI  .GT.  1.000}  GO  TO  5 
U26  >  26.0DO^PS 
GO  TO  50 
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c 

C  INVALID  INPUT 
10  IFLAM 
RETUNN 

CHECK  CONTINUATION  POSSIIILITIES 

20  IF  ((T  .EQ.  TOUT)  .AND.  (KFLAG  .NE.  3))  GO  TO  10 
IF  <NFLAG  .NE.  2}  GO  TO  25 

IFLAG  >  -^2  OR  -2 

IF  <(KFLA6  .EQ.  3)  .OR.  (INIT  .EO.  0))  GO  TO  45 
IF  (KFLAG  .EQ.  4)  GO  TO  40 

IF  ((KFLAG  .EQ.  5)  .AND.  (AGSERR  .EQ.  0.000))  GO  TO  30 
IF  ((KFLAG  .EQ.  6)  .AND.  (RELERR  .LE.  SAVRE)  .AND. 

1  (ABSERR  .LE.  SAVAE))  GO  TO  30 
GO  TO  50 

IFLAG  -  3.4.5.6,7  OR  8 
ZS  IF  (IFLAG  .EQ.  3)  GO  TO  45 
IF  (IFLAG  .EQ.  4)  GO  TO  40 

IF  ((IFLAG  .EQ.  5)  .AND.  (ABSERR  .GT.  0.000))  GO  TO  45 

INTEGRATION  CANNOT  BE  CONTINUED  SINCE  USER  DID  HOT  RESPOND  TO 
THE  INSTRUCTIONS  PERTAINING  TO  IFLAG«5,6.7  OR  8 
30  STOP 

RESET  FUNCTION  EVALUATION  COUNTER 
40  NFE«0 

IF  (NFLAG  .EQ.  2)  GO  TO  50 

RESET  FLAG  VALUE  FROM  PREVIOUS  CALL 
45  IFUG-JFLAG 

IF  (KFLAG  .EQ.  3)  NFUG«(ABS( IFLAG) 

SAVE  INPUT  IFLAG  ANO  SET  CONTINUATION  FUG  VALUE  FOR  SUBSEQUENT 
INPUT  CHECKING 
50  JFlAGalFUG 
KFUG«0 

SAVE  RELERR  ANO  ABSERR  FOR  CHECKING  INPUT  ON  SUBSEQUENT  CALLS 
SAVRE-RELERR 
SAVAEaABSERR 

RESTRICT  REUTIVE  ERROR  TOLERANCE  TO  BE  AT  LEAST  AS  LARGE  AS 
2^PS+REMIH  TO  AVOID  LIMITING  PRECISION  DIFFICULTIES  ARISING 
FROM  IMPOSSIBLE  ACCURACY  REQUESTS 

RER>2.0OO^PS>REMIN 
IF  (RELERR  .GE.  RER)  GO  TO  55 

REUTIVE  ERROR  TOLERANCE  TOO  SMALL 
RELERR-RER 
IFLAG>3 
KFLAG*3 
RETURN 

55  DT-TOUT-T 

IF  (NFLAG  .EQ.  1)  GO  TO  60 
IF  (INIT  .EQ.  0)  GO  TO  65 
GO  TO  80 

INITIALIZATION  — 

SET  INITIALIZATION  CO«>LETION  INOIUTOR, INIT 
SET  INOIUTOR  FOR  TOO  MANY  OUTPUT  POIHTS.KOP 
EVALUATE  INITIAL  DERIVATIVES 
SET  COUNTER  FOR  FUNCTION  EVALUATIONS.NFE 
ESTIMATE  STARTING  STEPSIZE 
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60  IN1T«0 
HOMO 

c 

A>T 

CALL  F(A,Y.VI>) 

NFE>1 

IF  (T  .NC.  TOUT)  60  TO  65 

IFLA6-2 

RETURN 


65  IHIT>1 
HaOAH(OT) 

TOLNaO. 

00  70  Kal.HCQN 

T0L>RELERRmAIS(y(K)  )«A8SERR 
IF  (TOL  .LE.  0.)  60  TO  70 
TOLN-TOL 
VnCalMIStYRfICTT 

IF  (YPK*N*n  .6T.  TOL)  H«(TOL/YPK)**0.200 
70  CONTINUE 

IF  (TOLN  .LE.  0.000)  H-O.OOO 

H>«tMX1(N,U26*0NAX1(0AIS(T),0ARS(0T))) 

JFLA6a|SI6N<2.IFLA6) 


SET  STEPSIZE  FOR  INTEeRATION  IN  THE  OIRECTIQN  FROM  T  TO  TOUT 
80  NaOSI6N(H,OT) 

TEST  TO  SiEE  IF  RKFA5  IS  8EIN6  SEVERELY  IMPACTED  BY  TOO  MANY 
OUTPUT  POINTS 

IF  (DASSCN)  .6E.  2.Q00niANS(0T))  K0P>IC0P«^1 
IF  (HOP  .NE.  100)  60  TO  85 

UNNECESSARY  FREQUEHa  OF  OUTPUT 

XOPaG 

IFLA6a7 

RETURN 

85  IF  (DASS(OT)  .6T.  U26*0ABS(T))  60  TO  95 

IF  TOO  CLOSE  TO  OUTPUT  POINT.EXTRAPOUTE  AND  RETURN 

00  90  K>1,NE6N 
90  Y(K)aY(K)40TnP(K) 

A«T0UT 

CALL  F(A,Y,YP) 

NFEaNFE^I 
60  TO  300 


INITIALIZE  OUTPUT  POINT  INDICATOR 
95  OUTPUT-  .FALSE. 

TO  AVOID  PRBMTURE  UNDERFLOU  IN  THE  ERROR  TOLERANCE  FUNCTION, 
SCALE  THE  ERROR  TOLERANCES 

SCALE-2.0DO/RELERR 

AE>SCALE*ABSERR 


STEP  8Y  STEP  INTE6RATI0N 

100  HFAILD-  .FALSE. 

C 
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C  SET  aWLLEST  ALUMMU  STEMIZE 

c 

NNIII>U2A*0US(T) 

ADJUST  ITEMIZE  JF  NECESSMY  TO  HIT  THE  OUTPUT  POIHT. 

LOOK  AHEAD  TWO  STEM  TO  AVOID  OSASTIC  CHAHGES  IH  THE  STEMIZE  AHO 
THM  LESSEN  THE  IMPACT  OP  OUTPUT  POINTS  ON  THE  CODE. 

DT-TOUT-T 

IF  (OAIS(DT)  .6E.  Z.OOOMASSCH))  GO  TO  200 
IF  (OADS(DT)  .6T.  OADS(H))  GO  TO  150 

THE  NEXT  SUCCESSFUL  STEP  WILL  COMPLETE  THE  INTEGEATION  TO  THE 
OUTPUT  POINT 

OUTPUTa  .TSUE. 

IMT 

GO  TO  200 
ISO  H«0.500*OT 


CORE  INTEGRATOR  FOR  TAKING  A  SINGLE  STEP 

THE  TOLERANCES  NAVE  SEEN  SCALED  TO  AVOID  PREMATURE  UNDERFLOW  IN 
COMPUTING  TNE  ERROR  TOLERANCE  FUNCTION  ET. 

TO  AVOID  PROELEMS  WITH  ZERO  CROSSIHGS.REUTIVE  ERROR  IS  MEASURED 
USING  TNE  AVERAGE  OF  TNE  MAGNITUDES  OF  THE  SOLUTION  AT  THE 
SEGINNING  AND  END  OF  A  STEP. 

THE  ERROR  ESTIMATE  FORNtAJI  HAS  BEEH  GROUPED  TO  CONTROL  LOSS  OF 
SIGNIFICANCE. 

TO  OISTINGUISN  TNE  VARIOUS  ARGUMENTS,  H  IS  NOT  PERMITTED 
TO  BECOME  SMALLER  THAN  26  UNITS  OF  ROUNDOFF  IH  T. 

PRACTICAL  LIMITS  ON  THE  CHANGE  IN  THE  STEMIZE  ARE  ENFORCED  TO 
SNOOTN  TNE  STEMIZE  SELECTION  PROCESS  AND  TO  AVOID  EXCESSIVE 
CNAHERING  ON  PROBLEMS  HAVING  DISCONTINUITIES. 

TO  PREVENT  UNNECESSART  FAILURES,  THE  CODE  USES  9/10  TNE  STEMIZE 
IT  ESTIMATES  WILL  SUCCEED. 

AFTPR  A  ST9  FAILURE,  THE  STEMIZE  IS  NOT  ALLOWED  TO  INCREASE  FOR 
THE  NEXT  ATTEMPTED  STEP.  THIS  MAKES  TNE  CODE  MORE  EFFICIENT  ON 
PROBLWS  HAVING  DISCONTINUITIES  AND  MORE  EFFECTIVE  IN  GEMRAL 
SINCE  LOCAL  EXTRAPOUTION  IS  BEING  USED  AND  EXTRA  CAUTION  SEEMS 
WARRANTO). 


TEST  NUMBER  OF  DERIVATIVE  FUNCTION  EVALUATIONS. 

IF  OKAT,TRY  TO  ADVANCE  THE  INTEGRATION  FROM  T  TO  T4-H 

200  IF  (NFE  .LE.  MAXNFE)  GO  TO  220 

TOO  MUCH  WORK 
IFLAG-4 
KFLAG>4 
RETURN 

ADVANCE  AN  APPROMIMATE  SOLUTION  OVER  ONE  STEP  OF  LENGTH  H 

220  CALL  FEHL(F,HEaH,r,T,H,YP,F1,F2,F3,FA,F5,F1) 

NFE>NFE-»5 

C 

C  COMPUTE  AND  TEST  ALLOWABLE  TOLERANCES  VERSUS  LOCAL  ERROR  ESTIMATES 
C  AND  RBOVE  SCALING  OF  TOLERANCES.  NOTE  THAT  RELATIVE  ERROR  IS 

C  NEASURB)  WITH  RESPECT  TO  THE  AVERAGE  OF  THE  MAGNITUDES  OF  THE 

C  SOLUTION  AT  TNE  BEGINNING  AND  END  OF  THE  STEP. 

C 

EEOET-O.ODO 
DO  250  K>1,HIQN 
ET>OABS(Y(K)>«OABS(F1(K))-ME 
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ir  (ET  .OT.  O.QOO)  60  TO  240 

c 

C  INAEMtOMIATE  EIBOE  TOLERANCE 

tFLA6*5 
RETURN 

C 

240  a>OAU((-2000.QOO*VP(KH(21970.aoO*F3(K)-1S048.000*F4(K)))« 

1  (22528.0OO*F2(K)-273M.0OO*FS(K») 

2S0  EEQET-ONAX1(EEOET,EE/ET) 

C 

ESnOL>«ABS(H)*EEOET*SCALE/752400.aOO 

C 

IF  (ESTTOL  .LE.  T.OOO)  60  TO  260 


UNSUCCESSFU.  STEF 

REDUCE  THE  STEPSIZE  .  TRT  AGAIN 

THE  DECREASE  IS  UNITED  TO  A  FACTOR  OF  1/10 

HFAIU»  .TRUE. 

OUTPUT-  .FALSE. 

S-O.IOO 

IF  (ESTTOL  .LT.  59049.000)  S«0.9DO/ESTTOL**0.200 
H«S*H 

IF  (DASS(H)  .6T.  HNIN)  00  TO  200 

REQUESTED  ERROR  UNATTAINASLE  AT  SNALLEST  ALLOUABLE  STEPSIZE 

IFLAe-6 

KFLAG-6 

RETURN 


SUCCESSFUL  STEP 

STORE  SOLUTION  AT  T-»N 

AND  EVALUATE  DERIVATIVES  THERE 

260  T-T+H 

00  270  K-I.NEON 
270  Y(K)«F1(K) 

A-T 

CALL  F(A,r,YP) 

NFE-NFE^I 


CHOOSE  NEXT  STEPSIZE 
THE  INCREASE  IS  LINITED  TO  A  FACTOR  OF  5 
IF  STEP  FAILURE  HAS  JUST  OCCURRB).  NEXT 
STEPSIZE  IS  NOT  AILOUEO  TO  INCREASE 

S-5.000 

IF  (ESnOL  .6T.  1.88956aD'4)  S-0.900/ESTTOL**0.200 
IF  (HFAILO)  S-0NIH1(S, 1.000) 
H>OSIGN(ONAX1(S^A8S(H),HNIN),H) 

END  OF  CORE  INTEGRATOR 


SHOULD  HE  TAKE  ANOTHER  STEP 

IF  (OUTPUT)  GO  TO  300 
IF  (IFLAG  .6T.  0)  GO  TO  100 


INTEGRATION  SUCCESSFULLY  COHPLETEO 

ONE-STEP  NODE 
IFLAG— 2 
RETURN 
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C  liTIItVML  NOOe 

300  T>TOUr 
ipue>2 
MEnim 
c 

EMO 

SUMOUTINE  PENL(F,IIEQN.Y.T.H,VP,F1,F2,F3,F4,FS,S) 

C 

C  FEHLBCRC  FOURTH-FIFTH  ORDER  RUN6E-KUTTA  METHOD 

C 

C  FEW.  IMTEGRATES  A  SYSTEM  OF  HEDM  FIRST  ORDER 
C  ORDIMARY  DIFFERENTIAL  EQUATIONS  OF  THE  FORM 
C  DY{I)/0T»F(T,Y(1).  — ,Y(NEQN)) 

C  WHERE  TIK  INITIAL  VALUES  Y( I)  AND  THE  INITIAL  DERIVATIVES 
C  YRd)  ARE  SKCIFIED  AT  THE  STARTINQ  POINT  T.  FEHL  ADVANCES 
C  THE  SOLUTION  OVER  THE  FIXB)  STEP  H  AND  RETURNS 
C  THE  FIFTH  ORDER  (SIXTH  ORDER  ACCURATE  LOCALLY)  SOLUTION 
C  APPRONINATION  AT  T^H  IN  ARRAY  S(I). 

C  FI,  — .FS  ARE  ARRAYS  OF  DIMENSION  NEON  WHICH  ARE  WSED 

C  FOR  INTERNAL  ST0RA6E. 

C  THE  FORMULAS  HAVE  SEEN  GROUPED  TO  CONTROL  LOSS  OF  SIGNIFICANCE. 

C  FEHL  SHOULD  SE  CALLED  WITH  AN  H  NOT  SMALLER  THAN  13  UNITS  OF 

C  ROUNDOFF  IN  T  SO  THAT  THE  VARIOUS  INDEPENDENT  ARGUMENTS  CAN  BE 

C  OISTINOUISHa. 

C 

c 

INTEGER  HNH 

OOUSU  PRECISION  Y(HEQN).T,N,TP(NEQN),F1(NEQN),F2(NEQN). 

1  F3(NE0N).P4<NE0M).F5(NCQN),S(NEQN) 

C 

DOUBLE  PRECISION  CH 
INTEGER  K 

C. .  * 

EXTERNAL  F 
CMaN/4.000 
DO  221  Ksl.NEGN 

221  FS(K>«T(K)-»CN*YP(K) 

CALL  F(T«CN,F5,F1) 

C 

CN>3.000*N/32.0DO 
DO  222  Kal.NEON 

222  FS(K)>Y(K)«CN*(YP(K)-»3.000*F1(K}) 

CALL  F(T«3.000*H/8.aoO,F5,F2) 

C 

CN«H/2197.000 
DO  ZO  Kb1,NEGH 

223  F5(K)«Y(K}«CH*(1932.000nP(K)4><7296.0DO*F2(K)-7200.0DO*F1(K») 
CALL  F(T-»12.000*N/13.000.F5,F3) 

C 

CH-H/4104.000 
DO  224  K>1,NEQN 

224  F5(K)>V(K)*CH«((8341 .000*YP(X)-845.aoO*F3(K))4^ 

1  (2944O.aoO*F2(K)-32832.0OO*F1(K))) 

CALL  F<T>H,F5,F4) 

C 

CH>H/20520.0DO 
DO  22S  K-I.NEQN 

225  FI <X)«Y<K)^CH*<  < -6080.000*YP(K)»<9295 .000*F3(K)- 

1  S«43.0DO*F4(K}}}4>(41040.0DO*F1(K}-28352.0DO*F2(K») 

CALL  F(T4-H/2.000,F1,F5) 

COMPUTE  APPRONINATE  SOLUTION  AT  T^H 

CN>N/7618050.000 
DO  ZUi  K>1  NEON 

230  S(K)«Y(K)«CN*((902880.000rrP(K)«(3855735.000*F3(K}- 

1  1371249.000*F4(K)))«(3953664.000*F2(K}« 

2  277020.0DO*F5(K))) 

C 
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